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DATA PROCESSING PACKAGE 
FOR THE IBM 704 



This manual describes the Data Processing Package for 
the IBM 704, which is intended to facilitate the coding of 
commercial programs. 

The Data Processing Package was developed for the Applied 
Programming Department of IBM by the following staff 
members of the New York Data Processing Center, The 
Service Bureau Corporation: 

S. Poley 
F. T. Baker 
M. Hanna 
T. Arbuckle 



The Data Processing Package program decks (symbolic or binary instruction cards) are 
available from: 

704 Program Librarian 

Applied Programming Publications 

IBM Corporation 

590 Madison Avenue 

New York 22, N. Y. 



(c) 1957 by International Business Machines Corporation 



CONTENTS 

Page 

PART I: SUBROUTINE SPECIFICATIONS 

Introduction 1 

Terminology and Symbols 1 

Example 2 

General Specifications 3 

Routines: 

Read Card into Packed BCD 4 

Punch Packed BCD 5 

Print Packed BCD 6 

Read BCD Tape 7 

Write BCD Tape 8 

Read Binary Tape 9 

Write Binary Tape 12 

Move 13 

Extract and Insert .14 

Alphanumerical Comparison 15 

Blank Packed Block . 17 

BCD to Binary Conversion 18 

Binary to BCD Conversion 19 

BCD Arithmetic 20 

Clear and Add Logical Field 25 

Insert Leading Zeros 26 

Modify for Printing 27 

Check Packed BCD 32 

PART II: MEMORY ALLOCATION AND LOADER 

Introduction 33 

Package Components 33 

Loader 33 

PART III: WRITE LIBRARY TAPE ROUTINE 39 

PART IV: PROGRAM LISTING 41 

APPENDIX 

Octal-BCD Table 79 

Summary of Calling Sequences 80 



PART I: SUBROUTINE SPECIFICATIONS 

INTRODUCTION 

The Data Processing Package is an integrated set of subroutines which 
allow the 704 to operate on binary coded decimal (BCD) information. 
Input, output, information transfer and manipulation, and arithmetic 
are all performed on packed BCD data. 

Flexibility is provided for interweaving binary 704 operations with BCD 
subroutine operations. Subroutines are provided to facilitate preparation 
of commercial reports. BCD arithmetic is performed in a 24-digit pseudo 
accumulator. 

The basic aim of the package is to reduce greatly the time and cost of 
initial programming of certain types of problems. Among these are: 

1. Problems involving the reading and processing (with a modest 
amount of calculation) of successive input records and the writing 
of successive output records (file maintenance). 

2. Problems involving considerable internal data manipulation. 

3. Problems requiring an elaborate output format. 

4. Problems involving mixed alphabetic and numerical input. 

5. Problems of a one-time nature. 

Use of the Data Processing Package does not require memory provision 
for the entire package. Only those subroutines actually to be used in an 
application need be in memory at any time. A simple scheme is available 
for loading these subroutines from a library tape at the time the program 
is run. 



TERMINOLOGY AND SYMBOLS 

The following terms and symbols are used to describe calling sequences: 

Block = Group of sequential words. 

A or B = Origin (first word) of a block. 
W = Number of words in a block. 



C = Origin of a control word table. 

Field = Group of sequential characters imbedded in a block. 

Numerical Field = Field whose units (rightmost) character is either a 

signed or unsigned digit and whose remaining characters 
are unsigned digits. 
N = Number of characters in a field. 

R, S = Position of the first (leftmost) character of a field. 

T = Tape unit number (1-10). 

t = Tag for indexing A, B, or C (t=0, 1 or 2). 

W = Number of words in a block. 

EXAMPLE 

Assume that the first 72 columns of the card 



f Estimate 


Job 


Man 








No. 


No. 


No. 


Date 


Hours 


Description 


8039 


01 


363 


i i 
07J22J7 


11.6 


CLASSIFIED 


1- -4 


5- -6 


7- -9 


10- -14 


15- -17 


18- -72 



are read into core storage as a 12-word packed BCD block (six characters 
per word) beginning at symbolic location INPUT. The block would appear 
in core storage as follows, letting b stand for a blank character: 



803901 


363072 


27116C 


LASSIF 


I.EDbbb 


bb b 


bbbbbb 



INPUT 



+ 1 



+2 



+3 



+4 



+ 11 



The following table indicates how each field of this card would be described 
in terms of the previously defined parameters: 





A 


(or 


B) = 


INPUT 




FIELD 






N 


R 


(or S) 


Estimate No 






4 




1 


Job No. 






2 




5 


Man No. 






3 




7 


Date 






5 




10 


Hours 






3 




15 


Description 






55 




18 



It is important to note that a field may be thus described without explicit 
information concerning the position of its individual characters within a 



block; i. e. , we do not need to concern ourselves with the fact that the 
leftmost character of the HOURS field is the third character (counting 
from the left) of (INPUT +2). We need only realize that the HOURS field 
begins with the fifteenth character of the block starting at INPUT and is 
three characters in length. 

To facilitate the processing of fields which are known to begin with the 
leftmost character of a word, omitting R or S in a field description will 
always have the same effect as setting R or S equal to 1. 



GENERAL, SPECIFICATIONS 

Regardless of which subroutines are called into use, a section of the Data 
Processing Package known as the Universal Routine must always be present. 
The principal function of the Universal Routine is to supply a mechanism for 
reference to the various subroutines and to provide universal constants and 
erasable storage. 

All of the subroutines in the Data Processing Package are entered by 
executing an instruction of the form TSX SUBR, 4 followed by an 
appropriate calling sequence, where SUBR stands for the beginning 
location of the subroutine. 

The contents of index registers 1 and 2 prior to entry into a subroutine 
are always restored prior to exit from the subroutine. The contents of 
the MQ prior to entry into a subroutine remain the same upon exit from 
the subroutine in the case of BPB, ZAC, TZE, TNZ, TMI, TPL, TOV, 
TNO, and ALS. In all other cases the contents of the MQ are changed. 
The contents of the Accumulator are changed by all subroutines except 
ZAC. 



READ CARD INTO PACKED BCD 



Purpose 

To read columns 1-72 of a decimal card, perform Hollerith to BCD con- 
version, and store the resulting packed BCD characters in a 12 -word 
block of core storage, starting at A, t. 

Calling Sequence 



H 1 LOCATION 

1 

1 
112 fi 




OP 

8 JO 


" 


ADDRESS. TAG. DECREMENT 
12 


COMMENTS 


72 


! a . 




T S X 




RCD, 4 


! a.+ 1 




A, t 


! a+ 2 






ERROR RETURN 


i a + 3 




EOF RETURN 


a + 4 






NORMAL RETURN 


! 







Error Return 

The presence of illegal Hollerith punching will result in an error return. 
Illegal punching does not terminate the conversion process and all legal 
columns will be properly converted. (See the appendix for legal Hollerith 
characters. ) 



Timing 

To keep the card reader in motion, do not exceed 21 ms between the normal 
return and subsequent TSX to RCD. 

Note 



On an EOF return, the 12- word block starting at A, t will be cleared to 
zeros. 



PUNCH PACKED BCD 



Purpose 

To convert to Hollerith a packed BCD block of W words beginning at A, t 
and punch a card. Punching will begin in column 1, assuming a SHARE 
punch control panel is used. 

Calling Sequence 



H 


LOCATION 


! OP 
1 

7 !e to 


11 


ADDRESS. TAG. DECREMENT 
12 




COM 


MENTS 


7? 




a 




T S X ! 


WPU, 4 












o.+. 1 








A, t, W 


W^12 










a + 2 








RETURN 

























Timing 



To keep the card punch in motion, do not exceed 24. 8 ms between the 
return and subsequent TSX to WPU. 



PRINT PACKED BCD 



Purpose 

To convert to Hollerith a packed BCD block of W words beginning at A, t 
and print one line on the on-line printer. Printing will begin with the first 
(leftmost) type wheel, assuming a SHARE I or II printer control panel is 
used. 

Calling Sequence 



H 1 LOCATION 
112 6 


! ° P 

7 8 lO 


ADDRESS. TAG. DECREMENT COMMENTS 
1I|12 7J 


! . .a. . 




T S X 




WPR, 4 


! a.+ 1 




A, t, W W^20 


! .a. + .2 




RETURN 









Timing 



To keep the printer in motion, do not exceed 114. 7 ms between the return 
and subsequent TSX to WPR. 



READ BCD TAPE 



Purpose 

To read one BCD record from tape T into a block of core storage beginning 
at A, t. 

Calling Sequence 



H I LOCATIOIS 



q.+ i 



a.+ .2 



' a + 3 



a+ 4 



I 8 to 



T S X 



ADDRESS. TAG. DECREMENT 



COMMENTS 



RTD, 4 



jA, f, T 



T= 1. 2.-- •-. 10 



ERROR RETURN 



EOF RETURN 



NORMAL RETURN 



Error Return 

An RTT check failure or false EOR or EOF skips result in an error return. 
In the case of false EOR or EOF skips, the accumulator is set to zero. 

Usage 

On either an RTT error return or a normal return, a word count is left 
in the decrement field of the accumulator. If the input record is not an 
exact multiple of six characters, the characters in the final incomplete 
word (< six characters) will be left in the low-order (rightmost) positions 
of the MQ. 

Timing 



(11.1 + .4W) ms per record. There is no "free" calculating time available 
between successive entries to RTD. 



WRITE BCD TAPE 



Purpose 

To write a W-word block starting at A, t as one BCD record on tape T. 

Calling Sequence 



.q.+ .i 



q+ 2 



q + 3 



T S X 



ADDRESS. TAG, DECREMENT 



COMMENTS 



WTP, 4 



W 



A. t. T 



RETURN 



Example 

The following program will write 50 BCD records onto tape 6, each 
record 10 words long, from a 500-word block starting at OUTPUT. Note 
the indexing of the block origin, OUTPUT + 500, 1; index register 1 is 
initially set to 500 and reduced by 10 after each record has been written. 



M 1 LOCATION i 
1 

1 

1 t 2 B 7 


OP 

a 10 


ii 


ADDRESS. TAG. DECREMENT 
12 


COMMENTS 

72 


1 


■ 


L X A 




500A. 1 


, . . . 

!A G A 1 N 


T S X 


WTD. 4 


i 






10 


i 




OUTPUT +500. 1. 6 


i 




T 1 X 




AGAIN. 1. 10 










i 






) 








J5 A 






500 













Timing 

(11. 1 + .4W) ms per record. There is no "free" calculating time available 
between successive entries to WTD. 

If it is desired to make an end-of-tape test after exiting from this subroutine, 
the test must be made within 148 /x s. 



READ BINARY TAPE 



Purpose 

To read part or all of one binary record from tape T into one or several 
blocks of core storage specified by a control word table beginning at C, t. 

Calling Sequence 



H 

1 


LOCATION 

2 e 


7 


OP 

8 lO 


ii 


ADDRESS. TAG. 
12 


DECREMENT 


COMMENTS 


72 




a 




UJL 




RTB, 4 




a.+ 1 


C, t, T 




a.+ _2. 


ERROR RETURN 




a.+ 3 


EOF RETURN 




a + 4 




NORMAL RETURN 











Usage 

Each word of the control word table has the form A, 0, W indicating a core 
block to be read into. Control words are automatically sequenced once 
reading begins. Reading continues until either 

a) The end of record is reached, 
or b) The end of the control word table is reached, as indicated by a 1 
in the sign bit of the end-of-table word. 

The last word of the record read is assumed to be a complemented ACL, 
record checksum (as written by the "Write Binary Tape" routine). A check- 
sum is always made of the entire record. An error return occurs on a 
checksum failure. The checksum will not appear in memory unless the sum 
of the number of words specified to be read ( Zw) is equal to or greater than 
the total number of words in the record, including the checksum. See examples 
1 and 2. 

On either a checksum error return or normal return, the total effective word 
count is left in the decrement field of the accumulator. By "effective word 
count" is meant the number of words of the binary record which are stored 
in the specified block or blocks of core storage, not counting the checksum. 

If false EOR or EOF skips are detected, an error return occurs with the 
accumulator set to zero. 



As a consequence of the rules for the termination of reading, given in 
a) and b) on the preceding page, the control word 



H 1 LOCATION ) j OP 

1 1 

i ; 2 r. 7 8 lo j ll 


ADDRESS, TAG, DECREMENT COMMUNIS 
12 "-" 




: ( c . . t .) 




! A. 0. -1 




i 




1 







will suffice to read a binary record of indefinite extent into a single 
block beginning at A. In this case, an end-of-table word (i. e. , a word 
with a 1 in the sign bit) is unnecessary. 

Note that while the beginning (C) of the control word table is indexable, 
the block origins specified in the table are not indexable. This restriction 
has been made because of timing considerations between copies and be- 
cause it is desirable to avoid pre-editing the control word table. 

Example 1 

Consider a 100 word + checksum =101 word binary record read under 
control of the control word table: 



LOCATION 



t-C. t ) 



ADDRESS. TAG. DECREMENT 



COMMENTS 



PART 1 , 0. 20 



PART 2, 0. 30 



M . Z-E ! 



PART 3, 0, 10 



101 words will actually be read. However, since Zw = 60 < 100, only 60 
words will be stored, and the resulting word count will be 60. The checksum 
will not be stored. 

Example 2 

Assume the above record is read under control of the control word table: 



H 1 LOCATION | 

1 i 


OP 
8 10 


11 


AODRESS. TAG. DECREMENT 
12 


COMMEVT'i 




!( c . t ) 








SAVE, 0, 40 


I 








DUP r r 50 


1 


. 


MORE, 0, 5 


1 






LAST. 0. 25 


' 




MZE 


( ) 


1 











10 



Since J W= 120 > 100, reading will terminate with the 102nd copy 
instruction. The word count will be 100. However, 101 words will actually 
appear in the specified blocks of memory, the 101st being the checksum. 

Timing 

(11. 1 + .4W) ms per record. There is no "free" calculating time available 
between successive entries to RTB. (W'= size of record read including 
checksum. ) 
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WRITE BINARY TAPE 



Purpose 

To write one binary record on tape T from one or several core blocks speci- 
fied by a control word table beginning at C, t. (See previous subroutine. ) 

Calling Sequence 



H I LOCATION 




OP 

io 


n 


ADDRESS, TAG. DECREMENT COMMENTS 
12 7? 


i a 




T S X 




WTB. 4 


\ a + _] 






C. t. T 


! a+ 2 




RETURN 












Usage 

Core blocks indicated by the control word table are written as one binary 
record, the last word of which is a complemented ACL record checksum. 

Timing 

(11. 1 + .4W) ms per record (W = 1+Zw). There is no "free" calculating 
time between successive entries to WTB. 

i ....... 

If it is desired to' ! make an end-of-tape test after exiting from this subroutine, 

the test must be made within 124 fl s. 
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MOVE 



Purpose 

To move a block of W words starting at A, t to a block of W words starting 
at B, t. 



Calling Sequence 



h l LOCATION 



a + 1 



a, +.2. 



a.+ 3 



a + 4. 



e io 



T S X 



ADDRESS. TAG. DECREMENT 



MOV, 4 



W 



A^_L 



B, t 



COMMENTS 



FROM 



TO 



RETURN 



Restriction 



If A, t < B, t, the blocks must not overlap. 



Timing 



ms 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

w 
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EXTRACT AND INSERT 



Purpose 



To move one or more fields from one block to another. 
Calling Sequence (K = number of fields to be moved. ) 



LOCATION 



8 TO 



ADDRESS. TAG. DECREMENT 



COMMENTS 



Q + 1 
J3.JL._JL 



q + 3 



...a____.__4_ 
^+ 5 



a +. 6 



a + 3K - 2 



a +3K - 1 



a + 3K 



«l.Jl.3K_±.J_ 



TSX 



XIN, 4 



N 



N_84 



A. t. R 



B, *, S 



^ 



FROM 



TO 



N 



A, t. R 



B, », $ 



■3 



N 



A. t. R 



MI 



B, t, S 



^ 



RETURN 



Usage 



Each group of three words in the calling sequence specifies a field to be 
moved. The calling sequence is terminated with a 1 in the sign bit of the 
third word of a group. 



Timing 



ms 



10 
9 
8 

7 
6 



(Per Field) 5 

4 

3 
2 
1 





1 2 3 4 S 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

N 
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ALPHANUMERICAL COMPARISON 



Purpose 

To compare two fields. 

Calling Sequence 



H 1 LOCATION 
1 1 2 e 


7 


op 

8 IO 


ii 


ADDRESS. TAG. DECREMENT 
12 


COMMENTS 


72 


i . .a. . 




X_.s_x_ 




COM, 4 


j .a.+ .l 


N 


! or + 2 


A. t. R 


FIELD 1 




< a.+ 3 


B. t. S 


FIELD 2 




! .a.+.4. 




ILLEGAL BCD RETURN 


j .a.+ 5 




FIELD 1 > FIELD 2 


J a + 6 




FIELD 1 « .FIELD 2 


i .0+7 


— 


FIELD 1 < FIELD 2 







Collating Sequence 

+ 
Blank •)+$*-/, ( =. o A 10 J 



Z 



Restrictions 

Control returns to (a+ 4) if either of corresponding unequal characters is 
illegal BCD. (See the appendix.) Corresponding equal characters are 
assumed to be legal BCD. 

The COM subroutine cannot be used to compare signed numerical fields. 

+ + + 
Since < (1 9) < <(1 9) < 9, 

the following results would occur: 

+ 
15 < 15 

+ 
39 <30 

21 < 24 

Signed numerical fields may be easily compared by means of either BCD 
arithmetic or conversion to binary. 



15 



Timing 



ms 



13 

12 

11 

10 

9 

8 

7 

6 

5 

4 
3 



> 



Ascending Order 





































































































% 


$2) 


^^r 










































































*&>■ 



































































































































































































12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 



N 
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BLANK PACKED BLOCK 



Purpose 

To initialize a block of W packed BCD words starting at A, t to BCD blanks, 

Calling Sequence 



H 1 LOCATION 

1 

1 
1 1 2 6 


7 


OP 

8 lO 


n 


ADDRESS. TAG. DECREMENT COMMENTS 
12 72 


! . o. . 




T.S X 




BPB, 4 


j a + 1 




A. t. W 


! a. + 2 


RETURN 


1 





Usage 

Each word of the specified block is set to (606060606060) 8 , i. e. , to six 
blanks . 

Timing 



3 

ms 2 
1 






























































































































































1 2 3 4 5 6 7 



9 10 11 12 13 14 15 16 17 18 19 20 

w 
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BCD TO BINARY CONVERSION 



Purpose 

To convert a numerical field (units position digit may be signed plus or 
minus) to a binary integer. If the units position digit is not signed, the 
field is considered positive. The field may exceed one word in length. 

Calling Sequence 



LOCATION 



B lO 



_a 

a+ 1 



a .+ . 2 . 



a + 3 



a + 4 



T S X 



ADDRESS. TAG. DECREMENT 



COMMENTS 



DTB, 4 



N 



N$84 



A, t f R 



ERROR RETURN 



NORMAL RETURN 



Restrictions 

1. If the input field is non-numerical, control returns to (<2+ 3) with zero 
in the decrement field of the accumulator. 

35 

2. If the input field is not less than 2 in absolute value, control returns 

to (a + 3) with (0000 1) R in the decrement field of the accumulator. 
Usage 
The result is left in the accumulator. 



Timing 



ms 




N 
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BINARY TO BCD CONVERSION 



Purpose 

To convert a binary integer to a numerical field, which may exceed one 
word in length. 

Calling Sequence 



H 1 LOCATION 
1 

1 | 2 6 


7 


OP 
8 10 


ii 


ADDRESS. TAG. DECREMENT COMMENTS 
12 72 


1 <*. 




X.l_.x_ 




BTD, 4 


! a+. i 


N N^84 


! a. + 2 


A. t. R 


i a + 3 


RETURN 









Usage 

Place (CLA) the (signed) binary integer to be converted in the accumulator 
and execute the above calling sequence. The resulting field will be signed 
over the units digit when negative and will not be signed when positive. 

Restrictions 

The P and Q bits of the accumulator are cleared prior to conversion. Thus, 
binary integers greater than (2 J:? -1) will not convert properly. 

Timing 



ms 




N 
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BCD ARITHMETIC 



Purpose 

To perform the common arithmetical operations on numerical fields, using 
a 24-digit signed pseudo -accumulator (hereafter referred to as AC). 

Restrictions 

Input fields must be numerical. Output (STO, STS) is signed over the units 
digit when negative and not signed when positive. Input fields are not 
checked for an excess of 24 digits. 

Overflow is possible on addition, subtraction, and multiplication but not on 
shifts. 

The sign of the pseudo -accumulator behaves in the same manner as that of 
the real 704 accumulator. 

Usage and Calling Sequ ences 

The following six routines use the calling sequence 



H 1 LOCATION 

112 B 


i. - ! 

7 8 1 O f 11 


ADDRESS. TAG, DECREMENT 
12 


COMMENTS 


7? 


! a. . 


ItsxI 


OP, 4 


! o.+ l 


i 




N 


I FIELD: N*24 




! a. + 2 




A. t. R J 


! a + 3 




ERROR RETURN 


! a + 4 i : 


IMORMAI PFTIIRN 


; i i 







OP 

CLA 

CLS 

ADD 

SUB 

MPY 



Clear and Add: Clears AC and adds specified field to AC. 

Clear and Subtract: Clears AC and subtracts specified field 
from AC. 

Add: Adds specified field to AC; overflow is possible. 

Subtract: Subtracts specified field from AC; overflow is possible, 

Multiply: Multiplies AC by specified field (magnitude of which 
must be less than 2^ D ). Product is left in low-order part of AC. 
Overflow occurs if product exceeds 24 significant digits. 



20 



DIV 



Divide: Divides AC by specified field (magnitude of which must 
be less than 2^ 5 ). Quotient is left in low-order part of AC. No 
provision is made for obtaining remainder. 



An error return occurs with an indication in the decrement field of the real 
accumulator: 



Decrement 







Cause 



(00001) 8 
(00002) g 
The following two store routines use the calling sequence 



Specified field non-numerical. 
MPY and DIV only: specified field 
not less than 2 J . 
DIV only: specified field equals zero. 



H 1 LOCATION 


| OP 




ADDRLS?;. TAG. DECRFMLNT COMMENTS 
12 T7 


! o. 


T S X 




OP. 4 


j a + l 


' 


N 1 FIELD; N*24 


1 O .+ 2 


A. t. R S 


' o.+ 3 1 | . . 




RETURN 


! i 







OP 

STO 
STS 



Store: Stores N low-order digits of AC in specified field. 

Store Suppressed: Stores N low-order digits of AC in specified 
field with leading zeros replaced by blanks, regardless of the 
sign of the field. This subroutine permits direct insertion of 
positive integers, computed in the AC, into an output block for 
printing without use of the MAC subroutine. 



The following three shifts use the calling sequence 



H 


LOCATION 
2 *. <"' 




OP 
3 lO 


ADDRESS. TAG. DECREMENT 
11 ( 12 


COMMENTS 


7? 




Y 

. .a. . 


! T S X 


! OP, 4 








« + i ! ! 


N 


AMOUNT OF SHIFT 






O + 2 




RETURN 
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OP 



ALS 



ARS 



AC Left Shift: Shifts contents of AC N positions left. High-order 
digits are lost; vacated low-order positions are filled in by zeros 

AC Right Shift: Shifts contents of AC N positions right. Low- 
order digits are lost; vacated high-order positions are filled 
in by zeros. 



SRD Shift Right and Round: Same as ARS except that units position 

of AC is rounded after shifting from high-order digit lost; i. e. , 
one is added to the units position of the AC if the last digit shifted 
out of the AC is equal to or greater than five. 

The following routine uses the calling sequence 



H I LOCATION OP ADDRESS. TAG. DECREMENT 



______ 



OP. 



T.S X 



COMMENTS 



ZAC, 4 



RETURN 



ZAC 



Zero Accumulator: Sets AC to zero. 



The following six transfer routines use the calling sequence 



H 


LOCATION 
2 S 


7 


OP 

B lO 


ii 


ADDRESS. TAG. DECREMENT 
12 


COMMENTS 


72 




. .a. . 




JL.i_.X__ 




OP r 4 




a.+ 1 


CONDITION MET 




__a +.2. 


CONDITION NOT MET 













OP 



TZE 


Transfer on AC Zero. 


TNZ 


11 " " Non-Zero. 


TMI 


" " " Minus. 


TPL 


11 " " Plus. 


TOV 


" " " Overflow. 


TNO 


" " No AC Overflow 



TOV and TNO will turn off pseudo-overflow trigger if it is on. 
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Timing 



ms 



8 






















8 




















7 




















ms 


7 
6 
5 
4 
3 
2 




















t» 






































5 

4 
3 
2 
1 








































c 


L 


A 


<%» 


C 


L 


s 
















































































1 








s 


T 














I 


2 


3 '< 


i . 


5 e 




' 8 


9 


1 







1 


. 


1 3 ■ 


I 5 6 


7 8 


9 


10 












N 




















1 


N 











ms 



24 
23 
22 
21 
20 
19 
18 
17 
16 





















































































































M 


P 


Y 



























ms 



.123456789 10 
N 



24 
23 
22 
21 
20 
19 
18 
17 
16 



D I V 



2 3 4 5 6 
N 



7 8 9 10 



23 



ms 



ms 



ms 



14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 
2 



11 

10 

9 

8 
7 

6 
5 

4 

3 
2 













































JAf 


r^ 






























































A 


D 


D 


































*&> 































































ms 



14 
13 
12 

11 

10 

9 





W^ 


























































































s 


u 


B 




















































£> 































































2 3456789 

N 



10 



123456789 10 

N 



A L S 



ms 



01 2 3456789 

N 

























^ 


A\ 




















































s 


R 


D 
























































Ml 


V. 























ms 



A R S 



012 3456 7 89 



S T S 



012345678 9 

N 

ZAC: 1.296 ms 

TZE, TNZ: 1.896 ms 

TPL, TMI: .096 ms 

TOV, TNO: . 120 ms 



123456789 10 

N 
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CLEAR AND ADD LOGICAL FIELD 



Purpose 



To form a 36 bit hash field checksum. 



Calling Sequence 



H 

1 


LOCATION 

2 e 


7 


OP 
8 lO 


11 


ADDRESS. TAG. DECREMENT 
12 




COMMENTS 


72 




a 




T_.S_.X_ 




CAF. 4 




^A+J.. 


N 




a+ 2 


— — 


A, t, R 




a +'3 


RETURN 









Method 

A 36 -bit checksum is formed by clearing the accumulator and applying the 
ACL instruction to successive packed BCD words of the field. If N is not 
a multiple of 6, the remaining characters are shifted right and zeros are 
inserted at the left, prior to the last ACL. 

Usage 

The result is left as a logical word in the accumulator. 

CAF may be used to conveniently extract a field of not more than six 
characters and insert it directly into the accumulator. This is more 
efficient than XIN followed by CAL. 

Timing 



ms 




7 8 9 10 11 12 13 14 15 16 17 18 19 20 

N 
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INSERT LEADING ZEROS 

Purpose 

To replace leading blanks of a field with zeros. 

Calling Sequence 



H I LOCATION 






JL.+ A, 



a+ 3 



T.S X 



ADDRESS. TAG, DECREMENT 



COMMENTS 



HZ.4 



i± 



N<84 



A, t, R 



RETURN 



Method 

Insertion of zeros progresses from left to right and ceases when either a 
non-blank character is encountered or the end of the field is reached. 

Timing 



12 

11 

10 

9 

8 

7 

ms 6 

5 

4 

3 





































































































^ 


"$± 










































































*M 


P 







































































































































































































































































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

N 
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MODIFY FOR PRINTING 



Purpose 

To prepare a numerical field for printing by adding any of the following: 
dollar signs (which may be floated), decimal points, commas, leading blanks, 
asterisks, and zeros. The desired output format is conveniently described by 
means of a BCD mask, and either - (minus) or CR (credit) may be used to 
sign negative results. If the units digit of the field is signed positively, the 
sign is simply removed. 

This routine may also be used to modify the contents of the pseudo -accumu- 
lator used in the BCD arithmetic subroutines. 

Calling Sequences 



1. To modify a numerical field: 



.q.+.i 



0.+ 2 



q.+ .3. 



<L+ 4. 



JLi.i. 



.<L±.Jl. 



T.S X 



ADDRESS. TAG. DECREMENT 



COMMENTS 



MOD. 4 



N_ 



A, t, R 



INPUT FIELD; Ng42 



M. f, m 



MASK; m S42 



B. t. S 



MODIFIED FIELD 



FRROR RETURN 



NORMAL RETURN 



2. To modify N low order digits of pseudo -accumulator: 



LOCATION 



■ «■+■ 1 



A±-i 



q + 3 



.JL±~4 



T.S X 



ADDRESS. TAG. DECREMENT 



COMMENTS 



MAC, 4 



N 



N*24 



M r f f m 



MASK? m ^42 



B.t,S 



MODIFIED FIELD 



RETURN 



where 



M = Location of first word of mask 
f = Format parameter 

m = Number of characters in mask (also equal to number of characters 
in output field). 
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Usage and Restrictions 

The mask must have at least as many characters as the input field and will 
usually have more (m > N). If the input field is non-numerical, control is 
returned to (a + 5). 

Example 1 

Input = 6237491 (N=7) 

Mask = $XX, XXX. XX (m=10) 
Output = $62,374.91 

This mask may be easily coded using a BCD card; e. g. , 



H 1 LOCATION 

1 I 2 B 


7 


OP 
8 lO 


ii 


ADDRESS. TAG. DECREMENT COMMENTS 

12 72 


! . M. . 




B.C D 




2$XX r XXX.XX 













Note that two words (M, M+l) are required to store the mask which must 
begin with the leftmost character of location M. 

Let 6Xbe the number of X's appearing in the mask. The inequality 

N< I X<m<42 

must be satisfied. If AC input is used, the further restriction N^ 24 is 
necessary. 

If - (minus) or CR appears immediately to the right of the mask, the output 
will be signed accordingly when negative. 

Example 2 

Mask = $XX, XXX - 

Input = 47523 Input = 32586 

Output = $47, 523b Output = $32, 586 - 

Mask = $X, XXX. XX CR 

Input = 238495 Input = 756894 

Output = $2, 384.95bb Output = $7, 568. 94CR 
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The format parameter f may have the following values: 
f Format 

Leading blanks 

1 Floating dollar sign 

2 Leading asterisks 

3 Leading zeros 

Example 3 illustrates the use of these parameters. 

Example 3 

MASK = $XXX*XXX.XX 



I NPUTS 



F=0 



F = l 



F = 2 



F=3 



36942708 
00942708 
00002708 
00000008 
00000000 



$369*427.08 
$ 9*427.08 
$ 27.08 
$ .08 
$ .00 



$369*427.08 $369*427.08 $369*427.08 

$9*427.08 $**9*427.08 $009*427.08 

$27.08 $#****27.08 $000*027.08 

$.08 $*******.08 $000*000.08 

$.00 $**♦****. 00 $000*000.00 



Note 

1. Suppression of commas or zeros never proceeds to the right of a decimal 

point. 

2. A $ will not appear in the output unless it appears in the mask. 

3. When the mask does not contain a $, the output for f = and f = 1 is identical, 

Example 4 

Special care may be necessary when wholly zero fields are modified as shown 
by the following (somewhat peculiar) output; note in particular f = 0, 1: 



4pput 



Mask = $XX, XXX- 



00000 



$ 

$ 
$*##### 

$00, 000 



00000 



$ 

$■ 

$00, 000 



Mask = $XX, XXX. - 



00000 



$ 

$. 

$00, 000. 



0000*0 



$ 

$00,000. - 



:*. - 
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When control is sent to the normal return, a number S', defined in the 
following diagram, is left in the decrement field of the accumulator with 
the remainder of the accumulator clear: 




Output Field Comment 

f=0 or 1, no $ in mask 

f=l, $ in mask 

These two situations are representative of instances where S' has meaning 
and possible value. It can be seen that S' is the character position of the 
rightmost blank in the output field. Two uses for S 1 immediately present 
themselves, and there are undoubtedly others: 

1) To affix a floating sign at the left of a field; e.g., 



Output 

3,427- 

427- 



Desired Output 
-3,427 
-427 



2) To close the gap which arises between adjacent fields when the one 
at the right has fewer than its maximum number of significant digits, 



e.g. 



Output 



Desired Output 



SHARES SOLD 375, 416 SHARES SOLD 375,416 
SHARES SOLD 416 SHARES SOLD 416 

This type of situation will usually occur in isolated headings, not in 
columnar listings. 

When the output field has no blanks at the left or is completely blank 
(except for . , - or CR), S 1 is defined as follows: 





Output Field 


Comment 


*r 


;; $22, 375 


f = 1, $ in mask 


sV-~ 


bbbbbb$ 


f = 1, $ in mask 


sj) — 


bbbbbbb- 


f = or 1, no $ in mask 
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In all other instances, a number S 1 is calculated but it is difficult to assign 
any useful meaning to it. 



As an aid in further processing, the sign of the accumulator is set to the 
sign of the input field on a normal return. 

Execution of MOD or MAC in no way affects the mask. Thus, a single mask 
will frequently suffice for the modification of several fields. 
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CHECK PACKED BCD 

Purpose 

To check a field for illegal BCD characters. 

Calling Sequence 



H 1 LOCATION 

i 1 2 e 




OP 
8 IO 


ii 


ADDRESS. TAG. DECREMENT COMMENTS 

12 72 


j_.._JL__,_ 

_.J_JL±J 

_1_^«L±JL_ 
i O + 3 




JLS_*_ 




CHK, 4 


N 


A. t, R 


ILLEGAL RETURN 


_. 4 ...«L±.A.— 


LEGAL RETURN 





Method 

A character for character check is carried out, which exits to (a + 3) if 
any of the fifteen illegal BCD characters given in the appendix are detected. 

Timing 



Q 


















' 






















8 

7 














































































6 








































5 

ns 








































4 
3 
2 




















































































































1 


















































































12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 



N 
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PART II: MEMORY ALLOCATION AND LOADER 



INTRODUCTION 

The purpose of this section is to specify the space required for each 
subroutine and to describe the manner of calling these subroutines into 
memory at the time a program is run. 

PACKAGE COMPONENTS 

For purpose of loading, the Data Processing Package is split into fourteen 
components, each containing one or more subroutines as shown in the table 
on page 34. Note that the Universal Routine does not have a component 
number. It is automatically brought into memory whenever any components 
are called in. 

LOADER 

The package components are stored on a library tape in a special relocatable 
form, one record per component. In order to call into core storage any 
desired group of components at the time a program is run, the routines A. 
and B. below must be assembled along with the main program. At the time 
the program is run, the library tape must be mounted on the tape unit with 
the Address Selection Switch set to 1. 

A. Loader Call Program - written by user 



H 1 LOCATION 
112 « 


7 


OP 
8 lO 


ii 


ADDRESS. TAG. DECREMENT COMMENTS 

12 72 


! a. . 




T.S X 




DPPL. 4 


1 a+ ] 








ERROR RETURN 


! o.+ 2 








r>i, 0, n 2 


! o + 3 








IV,, 0, n A 


i a + 4 








n*. 0, 


[ _; 










1 

1 t 











j a + K 








n „ LAST n. 


Jo + K + 1 








NORMAL RETURN 













n r n z> 



n 



= Component numbers of those components the user 
does not wish to call in. The n^ must be in ascending 
order except for n z , the last nj, which must be zero, 
n is not treated as are the preceding n. but serves 
as a terminating marker. 
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COMPONENT IDENTIFICATION TABLE 

Component No. Routine Words Required 

Universal Routine (Contains BCD 

to Binary and Binary to BCD 

routines) 440 

1 Read Card 163 

2 Punch 

Print 97 

3 Read BCD Tape 

Write BCD Tape 47 

4 Read Binary Tape 

Write Binary Tape 88 

5 Move 16 

6 Extract and Insert 12 

7 Alphanumerical Comparison 6l 

8 Blank Packed Block 10 

9 BCD Arithmetic 364 

10 Clear and Add Logical Field 32 

11 Insert Leading Zeros 18 

12 Modify for Printing 129 

13 Check Packed BCD 26 

TOTAL: 1503 
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Generally, the DPPL call program will be executed only once. If memory 
is at a premium, a small saving can be effected by placing the call pro- 
gram in some erasable area. 

Since DPPL is read over by DPP1, a second attempt to TSX to DPPL will 
generally produce nothing useful. 

Error Return = Location to which control is immediately transferred in 
the event that 

1) Three attempts at reading in a component record result in checksum 
failure. 

2) Either the n^s are not in ascending order or an i^ > 13. 

3) The block of memory reserved for the components is of insufficient 
size. 

On an error return, the accumulator is cleared, except for the decrement 
field, which will contain an indication corresponding to the error type; i. e. , 

Error Type Decrement (Octal) 



00001 
00002 
00003 



Normal Return = Location to which control is sent when component loading 
is completed. 

Example 1 

It is desired to load all components except Read-Write BCD Tape (#3), 
Move (#5), and Insert Leading Zeros (#11). If control is sent to the "Error 
Return" location, it is desired to stop with (77777) g in the address of the 
stop command. 



LOCATION 



,tt+ 1 



A±~a. 



a + 4 



T_.i_.X 
tLJ_.R_ 



ADDRESS. TAG. DECREMENT 



DPPL, 4 



3. 0. 3 



11 



COMMENTS 



NEXT INSTRUCTION IN MAIN PROGRAM 
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Note that the decrement of ( a + 3), left blank on the coding sheet and 
therefore taken as zero, fulfills the condition that the last r^ be zero. 



Example 2 

Same as Example 1 except that only #3 and #5 are to be omitted. 



LOCATION 



.q.+.l 



a. + 2 



.<*.+ , 3 



q.+ 4 



T.S X 



H.T R 



P -Z£ 



ADDRESS. TAG, DECREMENT 



COMMENTS 



DPPL, 4 



3, Q, 5 



NEXT INSTRUCTION IN MAIN PROGRAM 



Note that (a + 3) fulfills the condition that the last n^ be zero. 



Example 3 

Same as Example 1 except that all components are to be loaded. 



H I LOCATION 



-.a... 



q.+ 1 



q.+ 2 



■ «.+ . 3 , 



T,S X 



H T R 



P Z.E 



ADDRESS. TAG, DECREMENT 



COMMENTS 



DPPL, 4 



-1 



NEXT INSTRUCTION IN MAIN PROGRAM 



B. DPPL - Data Processing Package Loader 

DPPL is essentially a selective relocatable loader which must be assembled 
such that it begins in the first word of the block allocated for the package 
components. During the loading process, it is read over by the Universal 
Routine. Thus DPPL requires no space beyond that already allocated for the 
components. 

At any point preceding DPPL in the assembly deck, the user must place 
an EQU card which equates the symbol SIZE to the total number of words 
required for the components selected (computed from the table on page 34). 
The definition of SIZE permits DPPL to automatically block reserve the 
appropriate number of words needed for the components and to compare 
this figure against a computed value for checking purposes. 
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A typical assembly deck will thus appear as follows: 



END 



POINT WHERE DPP1 
IS TO BEGIN. 



SIZE EQU? 



y> MAIN PROGRAM 



K DPPL 



». MAIN PROGRAM 



J 



ORDER 



An alternative method of arranging the assembly deck is 



POINT WHERE DPP1 
IS TO BEGIN. 



END 



ORG ANY 



ANY BSS SIZE 



SIZE EQU? 



"\ 



^> DPPL 






T" MAIN PROGRAM 



J k 



ORDER 



y 
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If any attempt is made to use components of DPP1, e.g., MOD, without 
first executing DPPL to call them in, a stop of the form 



H 1 LOCATION 



MOD 



e to 



H T R 



ADDRESS. TAG. DECREMENT 



COMMENTS 



MOD 



will be encountered. 



Card Deck Available 



Symbolic (SAP code) deck, labelled DPPL 0000-0169 
Note 

The address part of DPPL + 13 (card # DPPL0051) must be set equal to 
the number of files to be skipped on the library tape containing DPPl. 
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PART III: WRITE LIBRARY TAPE ROUTINE 



Purpose 

To skip n files on tape T and write the Data Processing Package as the 
(n + l)st file. 

Binary Control Card 

9L address: n (n > 0) 

9R address: T (1<T<10) 

Operating Notes 

1) Ready tape T with library tape. 

2) Load the following deck: 

WDP 1 000-012 

Control Card 

WDP 1 013-104 

3) Error Stops (Octal) 

02051 - card checksum failure - start over. 

02154 -1 relocate complement address or decrement 

02163 -J in DPP1 - should never happen. 

02234 - card checksum failure - start over. 

02320 - three tape checksum failures in a row - press START 

to try three more times. (WDP1 checksum tests each 

DPP1 record it has written. ) 

Note: Tape T is rewound prior to processing. 

Card Deck Designation: 

Symbolic (SAP code) deck, labelled WDP 1 0000-0259 
Absolute Binary deck, labelled WDP1 0000-0105 
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PART IV: PROGRAM LISTING 
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DPP1 DATA PROCESSING PACKAGE 



4^ 









ooooo 




ORG 











ooooo 




BSS 











00124 


u 


ECU 


84 








ooooo 


( ) 


EQU 




UNIVERSAL O 


00000 


00000 





00001 


1A 




1 


00001 


00000 





00010 


8A 




8 


00002 


00000 





00011 


9A 




9 


00003 


00000 





00012 


10A 




10 


00004 


00000 





00016 


14A 




14 


00005 


00000 





ooioo 


64A 




64 


00006 


+000000000040 


040A 


OCT 


40 


00007 


+000000000051 


051A 


OCT 


51 


00010 


+000000000053 


053A 


OCT 


53 


ooon 


+000000000054 


054A 


OCT 


54 


00012 


+000000000060 


060A 


OCT 


60 


00013 


+000000000067 


067A 


OCT 


67 


00014 


+000000000073 


073A 


OCT 


73 


00015 


+000000000077 


077A 


OCT 


77 


00016 


00001 





ooooo 


ID 




0»0»1 


00017 


00002 





ooooo 


2D 




0»0»2 


00020 


00014 





ooooo 


12D 




0»0»12 


00021 


+000077000000 


cxso 


OCT 


77000000 


00022 


00000 


1 


ooooo 


TAG1 




0*1 


00023 


00000 


2 


ooooo 


2T 




0*2 


00024 


ooooo 


7 


ooooo 


TAG7 




0,7 


00025 


77777 





77777 


CT 




-1»0»-1 


00026 


o ooooo 





77777- 


CTD 




-1 


00027 


o ooooo 





00447 


LAC 




AC 


00030 


o ooooo 





00477 


LAC24 




AC+24 


00031 


o ooooo 





00124 


UA 




U 


00032 


ooooo 





00052 


HUA 




U/2 


00033 


00124 





OOOOO 


UDEC 




0»0»U 


00034 


00052 





OOOOO 


HUD 




0»0»U/2 


00035 


OOOOO 





00500 


UDB 




UD 


00036 


ooooo 





00477 


UDM1 




UD-1 


00037 


o ooooo 





00552 


UDPHU 




UD+U/2 
SHIFT TABLE 


00040 


o ooooo 





OOOOO 


ZERO 







00041 


o ooooo 





00006 


6A 




6 


00042 


ooooo 





00014 


12A 




12 


00043 


o ooooo 





00022 






18 


00044 


o ooooo 





00030 






24 


00045 


ooooo 





00036 


STAB 




30 








00040 


QOOO, 


SYN 


ZERO 








OOOOO 


0001, 


SYN 


1A 








00041 


0006* 


SYN 


6A 








00001 


0008* 


SYN 


8A 



UNIVERSAL COMPONENT 



SIZE OF UNPACKED BLOCK 



DPP10000 
DPP 10001 
DPP 10002 
DPP 1000 3 
DPP 10004 
DPP10005 
DPP10006 
DPP10007 
DPP 10008 
DPP 10009 
DPP10010 
DPP10011 
DPP 100 12 
DPP10013 
DPP10014 
DPP 100 15 
DPP10016 
DPP10017 
DPP10018 
DPP10019 
DPP10020 
DPP10021 
DPP10022 
DPP10023 
DPP10024 
DPP10025 
DPP10026 
DPP10027 
DPP10028 
DPP10029 
DPP10030 
DPP10031 
DPP10032 
DPP10033 
DPP10034 
DPP10035 
DPP 10036 
DPP10037 
DPP10038 
DPP10039 
DPP 10040 
DPP10041 
DPP10042 
DPP10043 
DPP10044 
DPP10045 
DPP10046 
DPP10047 
DPP10048 
DPP10049 
DPP10050 
DPP10051 
DPP10052 
DPP10053 
DPP 10054 
DPP10055 



00002 
00003 
00042 
00044 
00035 
00012 



0009. SYN 9A 

0010« SYN 10A 

0012« SYN 12A 

0024t SYN STAB-1 

LUD SYN UDB 

50B SYN 060A 






00046 +000000000000 

00047 +000000000000 

00050 +000000000000 

00051 -000011000000 

00052 -000010000000 

00053 +000000000000 

00054 -000046000000 

00055 -000045000000 

00056 -000044000000 

00057 -000043000000 

00060 -000042000000 

00061 -000041000000 

00062 -000040000000 

00063 -000037000000 

00064 -000007000000 

00065 -000000606060 

00066 +000000000000 

00067 +000000000000 

00070 +000000000000 

00071 -000005000000 

00072 -000004000000 

00073 -240025523200 

00074 -240036513111 

00075 -240035503010 

00076 -240034472707 

00077 -240033462606 

00100 -240032452505 

00101 -240031442404 

00102 -240030432303 

00103 -240027422202 

00104 -240026412101 

00105 -000006000000 

00106 +000000000000 

00107 +000000000000 

00110 +000000000000 

00111 -000002000000 

00112 -oooooioooooo 

00113 -200013523200 

00114 -200024513111 

00115 -200023503010 

00116 -200022472707 

00117 -200021462606 

00120 -200020452505 

00121 -200017442404 

00122 -200016432303 

00123 -200015422202 

00124 -200014412101 

00125 -000003000000 

00126 +000000000000 



OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 



400011000000 
400010000000 

400046000000 
400045000000 
400044000000 
400043000000 
400042000000 
400041000000 
400040000000 
400037000000 
400007000000 
400000606060 



400005000000 
400004000000 
640025523200 
640036513111 
640035503010 
640034472707 
640033462606 
640032452505 
640031442404 
640030432303 
640027422202 
640026412101 
400006000000 



400002000000 
400001000000 
600013523200 
600024513111 
600023503010 
600022472707 
600021462606 
600020452505 
600017442404 
600016432303 
600015422202 
600014412101 
400003000000 



77 


ILLEGAL 


76 


ILLEGAL 


75 


ILLEGAL 


74 


( 




73 


> 




72 


ILLEGAL 


71 


Z 




70 


Y 




67 


X 




66 


W 




65 


V 




64 


u 




63 


T 




62 


s 




61 


/ 




60 


BLANK 


57 


ILLEGAL 


56 


ILLEGAL 


55 


ILLEGAL 


54 


# 




53 


$ 




52 


-0 




51 


R 


-9 


50 


Q 


-8 


47 


P 


-7 


46 





-6 


45 


N 


-5 


44 


M 


-4 


43 


L 


-3 


42 


K 


-2 


41 


J 


-1 


40 


- 




37 


ILLEGAL 


36 


ILLEGAL 


35 


ILLEGAL 


34 


) 




33 


• 




32 


+0 




31 


I 


+ 9 


30 


H 


+ 8 


27 


G 


+ 7 


26 


F 


+6 


25 


E 


+ 5 


24 


D 


+ 4 


23 


C 


+ 3 


22 


B 


+2 


21 


A 


+ 1 


20 


+ 




17 


ILLEGAL 



DPP 100 56 

DPP 10057 

DPP10058 

DPP10059 

DPP10060 

DPP10061 

DPP10062 

DPP10063 

DPP10064 

DPP10065 

DPP10066 

DPP10067 

DPP10068 

DPP10069 

DPP10070 

DPP10071 

DPP10072 

DPP10073 

DPP10074 

DPP10075 

DPP10076 

DPP 10077 

DPP10078 

DPP10079 

DPP10080 

DPP10081 

DPP10082 

DPP10083 

DPP 100 8 4 

DPP10085 

DPP10086 

DPP10087 

DPP10088 

DPP10089 

DPP10090 

DPP10091 

DPP10092 

DPP10093 

DPP10094 

DPP10095 

DPP10096 

DPP10097 

DPP10098 

DPP10099 

DPP10100 

DPP10101 

DPP10102 

DPP10103 

DPP10104 

DPP10105 

DPP10106 

DPP10107 

DPP10108 

DPP10109 

DPP10110 

DPP10111 



4^ 



00127 +000000000000 

00130 +000000000000 

00131 +000000000000 

00132 -000012000000 

00133 +000000000000 

00134 -300060513111 

00135 -300057503010 

00136 -300056472707 

00137 -300055462606 

00140 -300054452505 

00141 -300053442404 

00142 -300052432303 

00143 -300051422202 

00144 -300050412101 

00145 -300047523200 



00146 -0 53400 1 00421 

00147 -0 53400 2 00422 
00150 02000 4 00000 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
BCD OCT 



400012000000 

700060513111 
700057503010 
700056472707 
700055462606 
700054452505 
700053442404 
700052432303 
700051422202 
700050412101 
700047523200 



16 


ILLEGAL 


15 


ILLEGAL 


14 


ILLEGAL(-) 


13 


= 


12 


ILLEGAL 


11 


9 


10 


8 


07 


7 


06 


6 


05 


5 


04 


4 


03 


3 


02 


2 


01 


1 


00 






UNIVERSAL SUB-SUBROUTINES 
RESTORE; AND RETURN ROUTINE 



END LXD XA»1 
LXD XBt2 
TRA 0*4 



INDEX ROUTINE 



00151 





60200 





00435 


INDEX 


SLW 


IND1 


00152 


-0 


32000 





00024 




ANA 


TAG7 


00153 





10000 





00162 




TZE 


IND2 


00154 





40200 





00022 




SUB 


TAG1 


00155 


-0 


10000 





00160 




TNZ 


IND3 


00156 





50200 





00421 




CLS 


XA 


00157 





02000 





00161 




TRA 


IND4 


00160 





50200 





00422 


IND3 


CLS 


XB 


00161 





77100 





00022 


IND4 


ARS 


18 


00162 





40000 





00435 


IND2 


ADD 


IND1 


00163 


-0 


32000 





00025 




ANA 


CT 


00164 





02000 


2 


00001 




TRA 


1*2 
LOCATE F 


00165 


-0 


63400 


2 


00436 


LFS 


SXD 


LFSB»2 


00166 





07400 


2 


00151 




TSX 


INDEX»2 


00167 


-0 


73400 


2 


00000 




PDX 


0*2 


00170 


3 


00000 


2 


00174D 




TXH 


LFS1»2»0 


00171 





53400 


1 


00041 




LXA 


6A»1 


00172 


-0 


53400 


2 


00436 




LXD 


LFSB»2 


00173 





02000 


2 


00001 




TRA 


1*2 


00174 





62100 





00431 


LFS1 


STA 


LFSA 


00175 





40200 





00016 




SUB 


ID 


00176 





76500 





00065 




LRS 


53 


00177 





22000 





00041 




DVH 


6A 


00200 





40200 





00041 




SUB 


6A 


00201 





73400 


1 


00000 




PAX 


0.1 


00202 


-0 


60000 





00437 




STO 


LFSQ 



RESTORE 

AND 

RETURN 



SAVE INPUT 

IS TAG=0 

IS TAG=1 
TAG = 1 

TAG = 2 
CLEAR TAG 



SAVE IR-2 
INDEX ORIGIN 

IS DEC=0 
SET IR-1«6 



DEC. NOT ZERO 
(DEC-1) 

(DEC-1)/6=Q+REM 

SET IR-1=(6-REM) 
SAVE Q 



DPP10112 

DPP10113 

DPP10114 

DPP10115 

DPP10116 

DPP1Q117 

DPP10118 

DPP10119 

DPP10120 

DPP10121 

DPP 10 122 

DPP10123 

DPP10124 

DPP10125 

DPP10126 

DPP10127 

DPP10128 

DPP10129 

DPP10130 

DPP10131 

DPP10132 

DPP10133 

DPP10134 

DPP10135 

DPP10136 

DPP10137 

DPP10138 

DPP10139 

DPP10140 

DPP10141 

DPP10142 

DPP10143 

DPP10144 

DPP10145 

DPP10146 

DPP10147 

DPP10148 

DPP10149 

DPP10150 

DPP10151 

DPP10152 

DPP10153 

DPP10154 

DPP10155 

DPP10156 

DPP10157 

DPP10158 

DPP10159 

DPP10160 

DPP10161 

DPP10162 

DPP10163 

DPP10164 

DPP10165 

DPP10166 

DPP10167 






00203 
00204 
00205 
00206 



00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 



00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 



00256 
00257 
00260 
00261 



•0 50000 00431 
36100 00437 

•0 53400 2 00436 
02000 2 00001 



CAL LFSA 
ACL LFSQ 
LXD LFSB»2 
TRA 1*2 



•0 63400 
07400 
62100 
77100 
73400 
36100 

■0 53400 
02000 



2 00432 

2 00151 

00432 

00022 

1 00000 
00432 

2 00432 
2 00001 



53400 
63400 
63400 
63400 
07400 
63400 
76000 
60200 
73400 
50000 
77100 
73400 
36100 
62100 
50000 
62100 
56000 
77300 
76000 
76300 
60200 
2 00001 
00001 
53400 
56000 
77777 
53400 
50000 
53400 
53400 
02000 



-0 



00000 
00440 
00441 
00433 
00165 
00443 
00006 
00442 
00000 
00433 
00022 
00000 
00035 
00243 
00046 
00240 
77777 
00000 

ooooo 

00006 

ooooo 

00251 
00241 
00041 
OOOOO 
00241 
00433 
00243 
00440 
00441 
00001 



53400 1 OOOOO 
•0 63400 2 00444 
■0 63400 4 00445 
•0 63400 1 00434 



SET UP BLOCK ADDRESS 

SBA SXD SBAB»2 
TSX INDEX»2 
STA SBAB 
ARS 18 
PAX 0»1 
ACL SBAB 
LXD SBAB»2 
TRA 1»2 

EXTRACT FIELD TO UD 

XTR1 LXA 1A»1 
XTR SXD XTRB*2 

SXD XTRX»4 

SXD XTRNtl 

TSX LFS»2 

SXD XTRR»1 

COM 

SLW XTRC 

PAX 0#2 

CAL XTRN 

ARS 18 

PAX 0»4 

ACL UDB 

STA XTRU 

CAL STAB+1»1 

STA XTR2 

LDQ -1»2 

RQL ( ) 

CLM 

LGL 6 

SLW ( ) »4 

TNX XTR3#4»1 

TIX XTR4tl»l 

LXA 6A»1 

LDQ 0»2 

TXI XTR4»2>-1 

LXD XTRN»1 

CAL XTRU 

LXD XTRB»2 

LXD XTRX#4 

TRA 1*2 

INSERT FIELD FROM UD 

INS1 LXA 1A»1 

INS SXD INSB»2 

SXD INSC*4 

SXD INSN»1 



XTR2 
XTR4 

XTRU 



XTR3 



INDEX ORIGIN 



SET IR-1=W 
(A+W) 



SET IR-1=1 
SAVE IR-2»4 

SAVE N 

LOCATE FIELD START 

SAVE (6-REM) 

SAVE ICOMtA+Q) 
SET IR-2=1C0M(A+Q) 



SET IR-4=N 
(UD+N) 

SET UP INITIAL SHIFT 

GET 1ST PACKED WORD 
AND SPIN TO 1ST CHAR. 

UNPACK AND STORE 

IN UD BLOCK 

TEST FOR N CHAR. 

TEST FOR 6 CHAR. 

SET IR-1=6 

GET NEXT PACKED WORD 

STEP PACKED ADDR. 

SET IR-1=N 

SET ACC(ADR)=(UD+N) 

RESTORE 

AND 
RETURN 



SET IR-1=1 
SAVE IR-2»4 

SAVE N 



DPP10168 
DPP10169 
DPP10170 
DPP10171 
DPP10172 
DPP10173 
DPP10174 
DPP10175 
DPP10176 
DPP10177 
DPP10178 
DPP10179 
DPP10180 
DPP10181 
DPP10182 
DPP10183 
DPP10184 
DPP10185 
DPP10186 
DPP10187 
DPP10188 
DPP10189 
DPP10190 
DPP10191 
DPP10192 
DPP10193 
DPP10194 
DPP10195 
DPP10196 
DPP10197 
DPP10198 
DPP10199 
DPP10200 
DPP10201 
DPP10202 
DPP10203 
DPP10204 
DPP10205 
DPP10206 
DPP10207 
DPP10208 
DPP10209 
DPP10210 
DPP10211 
DPP10212 
DPP10213 
DPP10214 
DPP10215 
DPP10216 
DPP10217 
DPP10218 
DPP10219 
DPP10220 
DPP10221 
DPP10222 
DPP10223 






00262 





07400 


2 


00165 




TSX 


LFS*2 


00263 





76000 





00006 




COM 




00264 





73400 


2 


00000 




PAX 


0*2 


00265 


-0 


50000 





00434 




CAL 


INSN 


00266 





77100 





00022 


INS6 


ARS 


18 


00267 





73400 


4 


00000 




PAX 


0»4 


00270 





40000 





00035 




ADD 


UDB 


00271 





62100 





00300 




STA 


INSU 


00272 


-0 


50000 


1 


00046 




CAL 


STAB+ltl 


00273 





62100 





00275 




STA 


INS2 


00274 





56000 


2 


77777 




LDQ 


-1»2 


00275 


-0 


76300 





00000 


INS2 


LGL 


() 


00276 





76700 





00006 


INS4 


ALS 


6 


00277 


-0 


77300 





00006 




RQL 


6 


00300 





36100 


4 


00000 


INSU 


ACL 


( ) 14 


00301 


-2 


00001 


4 


00310 




TNX 


INS3»4»1 


00302 


2 


00001 


1 


00276 




TIX 


INS4.1#1 


00303 





60200 


2 


77777 




SLW 


-1»2 


00304 





53400 


1 


00041 




LXA 


6A.1 


00305 





56000 


2 


00000 




LDQ 


0»2 


00306 


1 


77777 


2 


00276 




TXI 


INS4t2#'-l 


00307 


-0 


76300 





00006 


INS5 


LGL 


6 


00310 


2 


00001 


1 


00307 


INS3 


TIX 


INS5.1»1 


00311 





60200 


2 


77777 




SLW 


-1*2 


00312 


-0 


53400 


2 


00444 




LXD 


INSB»2 


00313 


-0 


53400 


4 


00445 




LXD 


INSCt4 


00314 





02000 


2 


00001 




TRA 


1*2 


00315 


-0 


63400 


2 


00444 


INSX 


SXD 


INSB»2 


00316 


-0 


63400 


4 


00445 




SXD 


INSC»4 


00317 


-o 


53400 


1 


00443 




LXD 


XTRR»1 


00320 





53400 


2 


00442 




LXA 


XTRC»2 


00321 


-0 


50000 





00433 




CAL 


XTRN 


00322 





02000 





00266 




TRA 


INS6 
DECIMAL T< 


00323 


-0 


63400 


1 


00421 


DTB 


SXD 


XA#1 


00324 


-0 


63400 


2 


00422 




SXD 


XB#2 


00325 





50000 


4 


00001 




CLA 


1*4 


00326 





73400 


1 


00000 




PAX 


Otl 


00327 





14000 





00330 




TOV 


DB1 


00330 





50000 


4 


00002 


DB1 


CLA 


2»4 


00331 





07400 


2 


00220 




TSX 


XTR*2 


00332 





62100 





00335 




STA 


DB3 


00333 





60000 





00424 




STZ 


Tl 


00334 





56000 





00002 




LDQ 


9A 


00335 





50000 


1 


00000 


DB3 


CLA 


Otl 


00336 





04000 





00347 




TLQ 


DB4 


00337 





40000 





00424 




ADD 


Tl 


00340 


-3 


00001 


1 


00362 




TXL 


DB5»1»1 


00341 





60100 





00424 




STO 


Tl 


00342 





76700 





00003 




ALS 


3 


00343 





40000 





00424 




ADD 


Tl 


00344 





40000 





00424 




ADD 


Tl 


00345 





60100 





00424 




STO 


Tl 


00346 


2 


00001 


1 


00335 




TIX 


DB3»1»1 



LOCATE FIELD START 
SET IR-2-1C0MU+Q) 



SET IR-4*N 
(UD+N) 

SET UP INITIAL SHIFT 

GET FIRST PACKED WORD 
INITIAL SPIN 



INSERT 

TEST FOR N CHAR. 

TEST FOR 6 CHAR. 

STORE PACKED WORD 

SET IR-1=6 

GET NEXT PACKED WORD 

STEP P.W. ADDR. 

SPIN LAST 

PACKED WORD 

RESTORE 

AND 

RETURN 

SAVE I. R. 

SET IR-1=(6-REM) 
SET IR-2=1C0M(A+Q) 
SET N 



SAVE I.R. 

GET N 

SET IR-1=N 

TURN OFF OV. TRIGGER 

EXTRACT FIELD 

TO BE CONVERTED 

SET (UD+N) 

CLEAR PARTIAL SUM 

SET MQ=9 

TEST FOR PURE DIGIT 

TEST FOR UNITS DIGIT 

PROGRAMMED 

MULT. 

BY 

10 



DPP10224 
DPP10225 
DPP10226 
DPP10227 
DPP10228 
DPP10229 
DPP10230 
DPP10231 
DPP1Q232 
DPP10233 
DPP10234 
DPP10235 
DPP10236 
DPP10237 
DPP10238 
DPP10239 
DPP10240 
DPP10241 
DPP10242 
DPP10243 
DPP10244 
DPP10245 
DPP10246 
DPP10247 
DPP10248 
DPP10249 
DPP10250 
DPP10251 
DPP10252 
DPP10253 
DPP10254 
DPP10255 
DPP10256 
DPP10257 
DPP10258 
DPP10259 
DPP10260 
DPP10261 
DPP10262 
DPP10263 
DPP10264 
DPP 10265 
DPP10266 
DPP10267 
DPP10268 
DPP10269 
DPP10270 
DPP10271 
DPP10272 
DPP10273 
DPP10274 
DPP10275 
DPP10276 
DPP10277 
DPP10278 
DPP 1027 9 



-J 



00347 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 



00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 



00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 



3 00001 
73400 
56000 
77300 
16200 
77300 
50000 
76300 
40000 
77300 
76300 
14000 
77774 
50000 
77775 



1 00365 

2 00000 
2 00145 
00001 
00365 

00037 
00040 
00004 
00424 
00003 
00000 
00364 
00146 
00016 
00146 



DB4 



63400 
63400 
76500 
76000 
36100 
73400 
63400 
36100 
62100 
62100 
62100 
53400 
76000 
22000 
60200 
00001 
00001 
12000 
50000 
10000 
40000 
40000 
60100 
53400 
50000 
07400 
77775 



00421 
00422 
00043 
00000 
00001 
00000 
00424 
00036 
00404 
00410 
00414 
2 00040 
00000 
00003 
00000 
00407 
00402 
00415 
00000 
00413 
00003 
00006 
00000 
00424 
00002 
00257 
00146 



00000 
00000 
00000 
00000 
00000 

ooooo 
o ooooo 
o ooooo 



ooooo 
ooooo 
o ooooo 
o ooooo 
o ooooo 
ooooo 
o ooooo 
o ooooo 



DB5 

DB7 
DB6 



BTD 



BD5 
BD1 



BD4 
BO 2 



BD7 
BD3 
BD6 



XA 

XB 
XC 
Tl 
T2 
T3 
T4 
T5 



TXH DB6»1#1 

PAX 0#2 

LDO BCD* 2 

RQL 1 

TOP DB6 

RQL 31 

CLA ZERO 

LGL 4 

ADD Tl 

RQL 3 

LLS 

TOV DB7 

TXI END»4>-4 

CLA ID 

TXI END»4»-3 



TEST FOR UNITS DIGIT 
IS UNITS POSITION 
A SIGNED DIGIT 



PUT UNSIGNED UNITS 
DIGIT IN ACC 



SIGN AC 

OVERFLOW TEST 
NORMAL RETURN 
SET DECREMENT TO 
ERROR RETURN 



BINARY TO DECIMAL CONVERSION 



SXD XA»1 
SXD XB»2 
LRS 35 
CLM 

ACL 1»4 
PAX 0» 1 
SXD Tl»l 
ACL UDM1 
ST A BD1 
STA BD2 
STA BD3 
LXA ZERO #2 
CLM 

DVH 10A 
SLW ()i2 
TNX BD4#1»1 
TXI BD5#2»1 
TPL BD6 
CLA ( ) 
TNZ BD7 
ADD 10A 
ADD 040A 
STO () 
LXD Tl»l 
CLA 2#4 
TSX INS»2 
TXI END»4#-3 

UNIVERSAL ERASEABLE 



SAVE I.R. 

SHIFT BINARY INTO MO 



SET IR-1*N 
SAVE N 

SET (UD+N-D-UNITS POSITION 



SET IR-2=0 

GENERATE BCD 
STORE UNPACKED BCD 
TEST FOR N CHAR. 

SKIP ON + 

-i GET UNITS DIGIT 



SIGN UNITS DIGIT 
INSERT BCD 

RETURN 



DPP10280 
DPP10281 
DPP10282 
DPP1Q283 
DPP10284 
DPP10285 
DPP 10 286 
DPP10287 
DPP10288 
DPP10289 
DPP10290 
DPP10291 
DPP10292 
DPP10293 
DPP10294 
DPP10295 
DPP10296 
DPP10297 
DPP10298 
DPP10299 
DPP10300 
DPP10301 
DPP10302 
DPP10303 
DPP10304 
DPP10305 
DPP10306 
DPP10307 
DPP10308 
DPP10309 
DPP10310 
DPP10311 
DPP10312 
DPP10313 
DPP10314 
DPP10315 
DPP10316 
DPP10317 
DPP10318 
DPP10319 
DPP10320 
DPP10321 
DPP10322 
DPP10323 
DPP10324 
DPP10325 
DPP10326 
DPP10327 
DPP10328 
DPP10329 
DPP10330 
DPP10331 
DPP10332 
DPP10333 
DPP10334 
DPP10335 



4^ 

OO 



00431 





00000 





00000 


LFSA 






00432 





00000 





ooooo 


SBAB 






00433 





00000 





00000 


XTRN 






00434 





00000 





ooooo 


INSN 














00435 


IND1 


BSS 


1 










00436 


LFSB 


BSS 


1 










00437 


LFSQ 


BSS 


1 










00440 


XTRB 


BSS 


1 










00441 


XTRX 


BSS 


1 










00442 


XTRC 


BSS 


1 










00443 


XTRR 


BSS 


1 










00444 


INSB 


BSS 


1 










00445 


INSC 


BSS 


1 










00446 


SAC 


BSS 


1 










00447 


AC 


BSS 


25 










00500 


UD 


BSS 


U 



00624 



BSS 



READ CARD COMPONENT 



READ CARD TO PACKED BCD 











00600 


LEFT 


SYN 


UD+64 










00602 


CMN 


SYN 


UD+66 










00604 


BOOL 


SYN 


UD+68 










00606 


8AND 


SYN 


UD+70 










00610 


ATE4 


SYN 


UD+72 










00612 


COBL 


SYN 


UD+74 










00614 


ZAND 


SYN 


UD+76 


00624 





76200 





00321 


RCD 


RCD 




00625 


-0 


63400 


1 


00421 




SXD 


XA#1 


00626 


-0 


63400 


2 


00422 




SXD 


XB»2 


00627 


-0 


63400 


4 


00423 




SXD 


XC»4 


00630 


-0 


50000 


4 


00001 




CAL 


1»4 


00631 





07400 


2 


00151 




TSX 


INDEX»2 


00632 





40100 





00042 




ADM 


12A 


00633 





62100 





00665 




STA 


OR INS 


00634 





62100 





00636 




ST A 


RCD2 


00635 





53400 


4 


00042 




LXA 


12A#4 


00636 





60000 


4 


OOOOO 


RCD2 


STZ 


()»4 


00637 


2 


00001 


4 


00636 




TIX 


RCD2»4»1 


00640 





53400 


4 


00005 




LXA 


64A»4 


00641 





53400 


2 


00001 




LXA 


8Ai2 


00642 





53400 


1 


00001 


RCD1 


LXA 


8A»1 


00643 


-0 


50000 


2 


01050 


CAL 


CAL 


MODEL+8»2 


00644 





76700 





00022 




ALS 


18 


00645 





36100 


1 


01050 




ACL 


M0DEL+8»1 


00646 





60200 


4 


00600 




SLW 


UD+64* 4 


00647 


-2 


00001 


4 


01017 




TNX 


E0F»4»1 


00650 


2 


00001 


1 


00643 




TIX 


CAL»1»1 


00651 


2 


00001 


2 


00642 




TIX 


RCD1#2»1 


00652 





70000 





00600 


LOOP 


CPY 


LEFT 


00653 





70000 





00601 


RCD3 


CPY 


LEFT+1 


00654 





53400 


2 


00041 


SUBLP 


LXA 


6A»2 


00655 





56000 





00600 




LDQ 


LEFT 


00656 


-0 


63400 


2 


00667 




SXD 


TEST.2 


00657 


1 


00006 


2 


00660 




TXI 


CLEER»2#6 


00660 


-0 


75400 





OOOOOT 


CLEER 


PXD 


0»0 



SELECT READER 
SAVE I. R. 



INDEX ADDRESS FOR OUTPUT 



CLEAR OUTPUT BLOCK 



SET UP 64 WORD MODEL IN UD BLOCK 



COPY ONE ROW OF THE CARD 

TAKE ROW 6 BITS AT A TIME 

AND (OR) THE APPROPRIATE DIGITS 

INTO THE OUTPUT BLOCK 



DPP10336 
DPP10337 
DPP10338 
DPP10339 
DPP10340 
DPP10341 
DPP10342 
DPP10343 
DPP10344 
DPP10345 
DPP10346 
DPP10347 
DPP10348 
DPP10349 
DPP10350 
DPP10351 
DPP10352 
DPP10353 
DPP10354 
DPP10355 
DPP10356 
DPP10357 
DPP 10358 
DPP10359 
DPP10360 
DPP10361 
DPP10362 
DPP10363 
DPP10364 
DPP10365 
DPP10366 
DPP10367 
DPP10368 
DPP10369 
DPP10370 
DPP10371 
DPP10372 
DPP10373 
DPP10374 
DPP10375 
DPP10376 
DPP10377 
DPP10378 
DPP10379 
DPP10380 
DPP10381 
DPP10382 
DPP10383 
DPP10384 
DPP10385 
DPP10386 
DPP10387 
DPP10388 
DPP10389 
DPP10390 
DPP10391 






00661 


-0 


76300 





00006 




LGL 


6 


00662 





73400 


1 


00000 




PAX 


0*1 


00663 


-0 


50000 


1 


00577 




CAL 


UD+63»1 


00664 


-0 


32000 


4 


01066 




ANA 


NUMB+14»4 


00665 


-0 


60200 


2 


00000 


OR INS 


ORS 


()»2 


00666 


-2 


00001 


2 


00673 




TNX 


TRATA>2»1 


00667 


3 


00000 


2 


00660D 


TEST 


TXH 


CLEER»2t() 


00670 





56000 





00601 




LDQ 


LEFT+1 


00671 


-0 


63400 





00667T 




SXD 


TEST»0 


00672 





02000 





00660 




TRA 


CLEER 


00673 


1 


00001 


2 


00674 


TRATA 


TXI 


RCD4»2»1 


00674 


-3 


00003 


4 


00752 


RC04 


TXL 


LAST»4»3 


00675 


-3 


00015 


4 


00705 




TXL 


8R0W#4»13 


00676 





60000 


2 


00606 


9ROW 


ST2 


BOOL+2»2 


00677 





60000 


2 


00604 




STZ 


CMN+2»2 


00700 





60000 


2 


00610 




STZ 


8AND+2»2 


00701 





07400 


1 


01024 




TSX 


OAtl 


00702 





07400 


1 


01032 




TSX 


0A8»1 


00703 


2 


00001 


2 


00676 




TIX 


9ROW#2#l 


00704 


1 


77777 


4 


00652 




TXI 


LO0Pt4#-l 


00705 


-3 


00014 


4 


00712 


8 ROW 


TXL 


7R0W»4»12 


00706 





07400 


1 


01032 


RCD6 


TSX 


0A8»1 


00707 





60200 


2 


00612 




SLW 


ATE4+2»2 


00710 


2 


00001 


2 


00706 




TIX 


RCD6»2»1 


00711 


1 


77777 


4 


00652 




TXI 


L00P»4>-1 


00712 


-3 


00011 


4 


00717 


7ROW 


TXL 


4R0W»4»9 


00713 





07400 


1 


01032 


RCD7 


TSX 


0A8»1 


00714 





07400 


1 


01024 


RCD9 


TSX 


0A»1 


00715 


2 


00001 


2 


00712 




TIX 


7R0Wt2»l 


00716 


1 


77777 


4 


00652 


RCD12 


TXI 


L00P#4»-1 


00717 


-3 


00010 


4 


00724 


4R0W 


TXL 


3R0W#4»8 


00720 





07400 


1 


01024 


RCD8 


TSX 


0A»1 


00721 





32000 


2 


00612 




ANS 


ATE4+2t2 


00722 


2 


00001 


2 


00720 




TIX 


RCD8»2tl 


00723 


1 


77777 


4 


00652 




TXI 


L00P»4t-l 


00724 


3 


00007 


4 


00714 


3ROW 


TXH 


RCD9»4»7 


00725 


3 


00006 


4 


00713 




TXH 


RCD7»4»6 


00726 


-3 


00005 


4 


00745 


1ROW 


TXL 


ZR0Wt4»5 


00727 





07400 


1 


01024 


RCD11 


TSX 


OAtl 


00730 





07400 


1 


01032 




TSX 


0A8tl 


00731 


2 


00001 


2 


00727 




TIX 


RCDlli2»l 


00732 


1 


00001 


2 


00733 




TXI 


RCD10t2»l 


00733 


-0 


50000 


2 


00610 


RCD10 


CAL 


8AND+2t2 


00734 





70000 


2 


00610 




CPY 


8AND+2#2 


00735 


-0 


50100 


2 


00604 




ORA 


CMN+2t2 


00736 


-0 


60000 


2 


00614 




STQ 


COBL+2»2 


00737 


-0 


60200 


2 


00614 




ORS 


COBL+2t2 


00740 


-0 


32000 


2 


00610 




ANA 


8AND+2t2 


00741 





60200 


2 


00616 




SLW 


ZAND+2t2 


00742 





60200 


2 


00602 




SLW 


LEFT+2t2 


00743 


2 


00001 


2 


00733 




TIX 


RCD10t2»l 


00744 


1 


77777 


4 


00654 




TXI 


SUBLP»4t-l 


00745 


3 


00004 


4 


00716 


ZROW 


TXH 


RCD12t4i4 


00746 


-0 


50000 


2 


00602 


XROW 


CAL 


LEFT+2»2 


00747 





60200 


2 


00604 




SLW 


CMN+2»2 


00750 


2 


00001 


2 


00746 




TIX 


XR0W»2»1 



PROCESS RIGHT HALF OF ROW 



SET lR-2*2 

IS THIS THE 12 ROW 

IS THIS THE 9 ROW 

INITIALIZE ERASEABLE WORDS 



SET IR-2-2 

COPY ZERO ROW INTO 8AND 

FORM (OR) SUM OF ALL NZ DIGITS 

FORM (OR) SUM OF ALL DIGITS INCL ZERO 

ZAND GETS ALL ZERO ZONES 
GO TO PUT IN ZONE=3 



CMN GETS ALL 11 PUNCHES 



DPP10392 
DPP10393 
DPP10394 
DPP10395 
DPP10396 
DPP 10397 
DPP10398 
DPP10399 
DPP10400 
DPP10401 
DPP10402 
DPP10403 
DPP10404 
DPP10405 
DPP10406 
DPP10407 
DPP10408 
DPP10409 
DPP10410 
DPP10411 
DPP10412 
DPP10413 
DPP10414 
DPP10415 
DPP10416 
DPP10417 
DPP10418 
DPP10419 
DPP10420 
DPP10421 
DPP10422 
DPP10423 
DPP10424 
DPP10425 
DPP10426 
DPP10427 
DPP10428 
DPP10429 
DPP10430 
DPP10431 
DPP10432 
DPP10433 
DPP10434 
DPP10435 
DPP10436 
DPP10437 
DPP10438 
DPP10439 
DPP10440 
DPP10441 
DPP10442 
DPP10443 
DPP10444 
DPP10445 
DPP10446 
DPP10447 



<J1 
o 



00751 


1 


77777 


4 


00652 




TXI 


L00P»4»-1 


00752 


-3 


00002 


4 


00765 


LAST 


TXL 


BLAN*4»2 


00753 


-0 


50000 


2 


00602 


RCD13 


CAL 


LEFT+2»2 


00754 


-0 


32000 


2 


00604 




ANA 


CMN+2»2 


00755 


-0 


60200 


2 


00606 




ORS 


B00L+2*2 


00756 


-0 


50000 


2 


00602 




CAL 


LEFT+2»2 


00757 


-0 


50100 


2 


00604 




OR A 


CMN+2»2 


00760 





60200 


2 


00604 




SLW 


CMN+2»2: 


00761 


-0 


32000 


2 


00610 




ANA 


8AND+2»2 


00762 





60200 


2 


00602 




SLW 


LEFT+2#2 


00763 


2 


00001 


2 


00753 




TIX 


RCD13»2»1 


00764 


1 


77777 


4 


00654 




TXI 


SUBLP»4»-1 


00765 


-3 


00001 


4 


00777 


BLAN 


TXL 


B00»4»l 


00766 


-0 


50000 


2 


00604 


RCD14 


CAL 


CMN+2#2i 


00767 


-0 


50100 


2 


00614 




ORA 


C0BL+2»2 


00770 





76000 





00006 




COM 




00771 





60200 


2 


00602 




SLW 


LEFT+2»2 


00772 


2 


00001 


2 


00766 




TIX 


RCD14»2»1 


00773 


-0 


50100 





00600 




ORA 


LEFT 


00774 





10000 





00776 




TZE 


RCD15 


00775 


1 


77777 


4 


00654 




TXI 


SUBLP>4>-1 


00776 


1 


77777 


4 


00777 


RG015 


TXI 


B00»4»-l 


00777 


-0 


50000 


2 


00616 


BOO 


CAL 


ZAND+2»2 


01000 


-0 


50100 


2 


00604 




ORA 


CMN+2>2 


01001 





76000 





00006 




COM 




01002 


-0 


32000 


2 


00612 




ANA 


ATE4+2.2 


01003 


-0 


50100 


2 


0O606 




ORA 


B00L+2»2 


01004 





60200 


2 


00602 




SLW 


LEFT+2»2 


01005 


-0 


50000 


2 


00616 




CAL 


ZAND+2»2 


01006 


-0 


32000 


2 


00604 




ANA 


CMN+2»2 


01007 


-0 


60200 


2 


00602 




ORS 


LEFT+2»2 


01010 


2 


00001 


2 


00777 




TIX 


B00»2»l 


01011 


-0 


50000 





00600 




CAL 


LEFT 


01012 


-0 


50100 





00601 




ORA 


LEFT+1 


01013 


-0 


53400 


4 


00423 




LXD 


XC»4 


01014 





10000 





01016 




TZE 


RCD16 


01015 


1 


77776 


4 


00146 




TXI 


END»4»-2 


01016 


1 


77774 


4 


00146 


RCD16 


TXI 


END»4»-4 


01017 





53400 


4 


00004 


EOF 


LXA 


14A»4 


01020 





70000 





00600 




CPY 


LEFT 


01021 





02000 





00653 




TRA 


RCD3 


01022 


-0 


53400 


4 


00423 




LXD 


XC»4 


01023 


1 


77775 


4 


00146 




TXI 


END#4»-3 


01024 


-0 


50000 


2 


00602 


OA 


CAL 


LEFT+2»2 


01025 


-0 


32000 


2 


00604 




ANA 


CMN+2»2 


01026 


-o 


60200 


2 


00606 




ORS 


B00L+2»2 


01027 


-0 


50000 


2 


00602 




CAL 


LEFT+2»2 


01030 


-0 


60200 


2 


00604 




ORS 


CMN+2»2 


01031 





02000 


1 


00001 




TRA 


1*1 


01032 


-0 


50000 


2 


00602 


0A8 


CAL 


LEFT+2»2 


01033 


-0 


32000 


2 


00610 




ANA 


8AND+2»2 


01034 


-o 


60200 


2 


00606 




ORS 


B00L+2»2 


01035 


-0 


50000 


2 


00602 




CAL 


LEFT+2f2 


01036 


-0 


60200 


2 


00610 




ORS 


8AND+2»2 


01037 





02000 


1 


00001 




TRA 


1*1 


01040 


+000000777777 


MODEL 


OCT 


777777 



CHECK FOR BOTH 11 AND 12 PUNCHES 
IN THE SAME COLUMN 

CMN GETS ALL 11 OR 12 PUNCHES 



GET ALL PLUS OR MINUS ZEROS 

AND GO TO PUT IN DIGIT OF 12 OCTAL 



FIND ALL COLUMNS WHICH ARE 
COMPLETELY BLANK 



UNLESS THERE ARE NO BLANK COLUMNS* 
GO TO PUT IN Z0NE=3 



CHECK FOR 8-4 PUNCHES WITH NO ZONE 
THESE ARE TREATED AS ILLEGAL 



CHECK FOR ZERO ZONE AS WELL AS 
11 OR 12 ZONE IN THE SAME COLUMN 



ERROR RETURN 

NORMAL RETURN 

GIVE COPY TO SENSE END OF FILE 



END OF FILE RETURN 

(AND) ROW TO CMN AND (OR) 
RESULT TO BOOL 



(OR) ROW TO CMN 



(AND) ROW TO 8AND AND (OR) 
RESULT TO BOOL 

(OR) ROW TO 8AND 



DPP10448 
DPP10449 
DPP10450 
DPP10451 
DPP10452 
DPP10453 
DPP10454 
DPP10455 
DPP10456 
DPP10457 
DPP10458 
DPP10459 
DPP10460 
DPP10461 
DPP10462 
DPP10463 
DPP10464 
DPP10465 
DPP10466 
DPP10467 
DPP10468 
DPP10469 
DPP10470 
DPP 10471 
DPP10472 
DPP10473 
DPP10474 
DPP10475 
DPP10476 
DPP10477 
DPP10478 
DPP10479 
DPP10480 
DPP10481 
DPP10482 
DPP 10483 
DPP10484 
DPP10485 
DPP10486 
DPP10487 
DPP10488 
DPP10489 
DPP10490 
DPP 10491 
DPP10492 
DPP10493 
DPP10494 
DPP 10495 
DPP10496 
DPP10497 
DPP10498 
DPP 10499 
DPP10500 
DPP10501 
DPP10502 
DPP10503 



Ui 



01041 


+000000777700 


OCT 777700 


01042 


+000000770077 


OCT 770077 


01043 


+000000770000 


OCT 770000 


01044 


+000000007777 


OCT 7777 


01045 


+000000007700 


OCT 7700 


01046 


+000000000077 


OCT 77 


01047 


+000000000000 


OCT 


01050 


llllllllllll 


NUMB BCD 1999999 


01051 


101010101010 


BCD 1888888 


01052 


070707070707 


BCD 1777777 


01053 


060606060606 


BCD 1666666 


01054 


050505050505 


BCD 1555555 


01055 


040404040404 


BCD 1444444 


01056 


030303030303 


BCD 1333333 


01057 


020202020202 


BCD 1222222 


01060 


010101010101 


BCD 1111111 


01061 


606060606060 


BCD 1 


01062 


404040404040 




01063 


202020202020 


BCD 1 ++++++ 


01064 


+121212121212 


OCT 121212121212 


01065 


606060606060 


BCD 1 


01066 


-377777777777 


OCT 777777777777 






01067 


BSS 

PUNCH BCD 


01067 


76600 


00341 


WPU WPU 


01070 


-0 63400 


1 00421 


SXD XA»1 


01071 


-0 63400 


2 00422 


SXD XBt2 


01072 


-0 63400 


4 00423 


SXD XC»4 


01073 


50000 


4 00001 


CLA 1»4 


01074 


07400 


2 00151 


TSX INDEX»2 


01075 


60200 


01077 


SLW PCH3 


01076 


07400 


4 01133 


TSX DHC»4 


01077 


00000 


01077 


PCH3 HTR PCH3 


01100 


-0 53400 


4 00423 


LXD XC»4 


01101 


1 77776 


4 00146 


TXI END»4>-2 
PRINT BCD 


01102 


76600 


00361 


WPR WPR 


01103 


-0 63400 


1 00421 


SXD XAtl 


01104 


-0 63400 


2 00422 


SXD XB»2 


01105 


-0 63400 


4 00423 


SXD XC»4 


01106 


-0 50000 


4 00001 


CAL 1*4 


01107 


-0 73400 


4 00000 


PDX 0»4 


OHIO 


07400 


2 00151 


TSX INDEX»2 


01111 


60200 


01114 


SLW PRT2 


01112 


3 00014 


4 01117 


TXH PRT3t4»12 


01113 


07400 


4 01133 


TSX DHC»4 


01114 


00000 


01114 


PRT2 HTR PRT2 


01115 


-0 53400 


4 00423 


PRT7 LXD XCt4 


01116 


1 77776 


4 00146 


TXI END»4>-2 


01117 


62100 


01121 


PRT3 STA PRT4 


01120 


07400 


4 01133 


TSX DHC»4 



PUNCH PRINT COMPONENT 



SELECT PUNCH 
SAVE I«R* 



GET CALL SEQ» 
INDEX 

GENERATE IMAGE 
AND COPY 
RETURN 



SELECT PRINTER 
SAVE I*Ri 



GET CALL SEQ. 
SET IR-1»W 
INDEX 

SAVE A*0»W 
IS W G«T« 12 
GENERATE IMAGE 
AND COPY 
RETURN 

PRINT A»0#12 



DPP10504 

DPP10505 

DPP10506 

DPP10507 

DPP10508 

DPP 10509 

DPP 105 10 

DPP10511 

DPP10512 

DPP 10 51 3 

DPP 105 14 

DPP10515 

DPP10516 

DPP10517 

DPP10518 

DPP 10 5 19 

DPP10520 

DPP10521 

DPP10522 

DPP10523 

DPP10524 

DPP10525 

DPP10526 

DPP10527 

DPP10528 

DPP10529 

DPP10530 

DPP10531 

DPP10532 

DPP10533 

DPP10534 

DPP10535 

DPP 10536 

DPP10537 

DPP10538 

DPP10539 

DPP10540 

DPP10541 

DPP10542 

DPP10543 

DPP10544 

DPP10545 

DPP10546 

DPP10547 

DPP10548 

DPP10549 

DPP10550 

DPP10551 

DPP10552 

DPP10553 

DPP10554 

DPP10555 

DPP10556 

DPP10557 

DPP10558 

DPP10559 






01121 





00014 





00000 


PRT4 


HTR 


0*0*12 


01122 





76600 





00361 




WPR 




01123 





76000 





00371 




SPR 


9 


01124 


-0 


50000 





01114 




CAL 


PRT2 


01125 





36100 





00042 




ACL 


12A 


01126 





40200 





00020 




SUB 


12D 


01127 





60200 





01131 


PRT5 


SLW 


PRT6 


01130 





07400 


4 


01133 




TSX 


DHC»4 


01131 





00000 





01131 


PRT6 


HTR 


PRT6 


01132 





02000 





01115 




TRA 


PRT7 



SELECT PRINTER* 

KILL SPACING FOR R»H • 

GET (A+12)»0»(W-12) 



PRINT RIGHT HALF 
WITHOUT SPACING 



PUNCH-PRINT COPY SUBROUTINE 

DECIMAL TO HOLLERITH CONVERSION AND COPIES 











00524 


DH4 


SYN 


UD+20 










00525 


DH6 


SYN 


UD+21 










00526 


DH13 


SYN 


UD+22 










00527 


DH17 


SYN 


UD+23 


01133 


-0 


63400 


4 


00524 


DHC 


SXD 


DH4»4 


01134 





50000 


4 


00001 




CLA 


1*4 


01135 





40000 





01201 




ADD 


DH5 


01136 





62200 





00525 




STD 


DH6 


01137 





77100 





00022 




ARS. 


18 


01140 





40000 


4 


00001 




ADD 


1*4 


01141 





62100 





01152 




STA 


DH7 


01142 





53400 


1 


01156 




LXA 


DH8i 1 


01143 





53400 


2 


01161 


DH9 


LXA 


DH10#2 


01144 





60000 


3 


00621 


DH11 


STZ 


UD+81»3 


01145 


2 


00001 


2 


01144 




TIX 


DH11»2»1 


01146 


-0 


50000 





01226 




CAL 


DH12 


01147 





60200 





00526 




SLW 


DH13 


01150 





53400 


2 


01203 




LXA 


DH14»2 


01151 


-o 


53400 


4 


00525 


DH15 


LXD 


DH6»4 


01152 





56000 


4 


00000 


DH7 


LDQ 


0»4 


01153 


-2 


00001 


4 


01175 




TNX 


DH16»4*1 


01154 


-0 


63400 


4 


00525 




SXD 


DH6#4 


01155 


-0 


63400 


2 


00527 




SXD 


DH17»2 


01156 


-0 


75400 





00100T 


DH8 


PXD 


64 


01157 


-0 


76300 





00002 


DH18 


LGL 


2 


01160 





73400 


2 


00000 




PAX 


0»2 


01161 


-o 


75400 





00021T 


DH10 


PXD 


17 


01162 


-o 


76300 





00004 




LGL 


4 


01163 





73400 


4 


00000 




PAX 


0»4 


01164 


-0 


50000 





00526 




CAL 


DH13 


01165 


-0 


60200 


3 


00620 




ORS 


UD+80»3 


01166 


-o 


60200 


5 


00614 




ORS 


UD+76»5 


01167 





77100 





00001 




ARS 


1 


01170 





60200 





00526 




SLW 


DH13 


01171 


-0 


32000 





01227 




ANA 


DH19 


01172 


-0 


10000 





01156 




TNZ 


DH8 


01173 


-0 


53400 


2 


00527 




LXD 


DH17»2 


01174 


2 


00001 


2 


01151 




TIX 


DH15*2»1 


01175 





53400 


2 


01157 


DH16 


LXA 


DH18»2 


01176 


-0 


50000 


3 


00602 


DH20 


CAL 


UD+66»3 


01177 


-0 


60200 


1 


00604 




ORS 


UD+68»1 



SAVE IR-4 
OBTAIN CALL SEQ 
N + l 
SAVE N+l 

A + N +1 

SAVE 

SET IR-1=64=OCT100 

SET IR-2=17=3CT21 

SET IMAGE BLOCK 

TO ZERO 

SET IMAGE BIT 

SET IR-2=6 

SET IR-4=N+1 

OBTAIN PACKED BCD WORD 

SAVE IR-2*4 

CLEAR AC 

GET ZONE BITS 

SET IR-2*ZONE BITS 

CLEAR AC 

GET DIGIT BITS 

SET IR-4=DIGIT BITS 

OR ZONE BIT TO IMAGE 
OR DIGIT BIT TO IMAGE 
SHIFT IMAGE BIT 

TEST FOR 6 CHAR 



TEST FOR 36 CHAR 
SET IR-2=2 
FILL IN 8-4 AND 
8-3 BITS 



DPP10560 

DPP10561 

DPP10562 

DPP10563 

DPP10564 

DPP10565 

DPP10566 

DPP10567 

DPP10568 

DPP10569 

DPP10570 

DPP10571 

DPP10572 

DPP 10573 

DPP10574 

DPP10575 

DPP10576 

DPP10577 

DPP10578 

DPP10579 

DPP10580 

DPP10581 

DPP10582 

DPP10583 

DPP 10584 

DPP10585 

DPP10586 

DPP10587 

DPP10588 

DPP10589 

DPP10590 

DPP10591 

DPP10592 

DPP10593 

DPP10594 

DPP10595 

DPP 10596 

DPP10597 

DPP10598 

DPP10599 

DPP10600 

DPP10601 

DPP10602 

DPP106Q3 

DPP10604 

DPP10605 

DPP10606 

DPP10607 

DPP10608 

DPP10609 

DPP10610 

DPP10611 

DPP10612 

DPP10613 

DPP10614 

DPP10615 






01200 


-0 


60200 


3 


00612 




ORS 


UD+74»3 


01201 


2 


00001 


2 


01176 


DH5 


TIX 


DH20»2»1 


01202 


-0 


50000 


1 


00614 




CAL 


UD+76»1 


01203 





76000 





00006 


DH14 


COM 




01204 





32000 


1 


00615 




ANS 


UD+77»1 


01205 


-0 


50000 


1 


00614 




CAL 


UD+76#1 


01206 


-o 


32000 


1 


00620 




ANA 


UD+80#1 


01207 


-0 


50100 


1 


00615 




ORA 


UD+77»1 


01210 





60200 


1 


00614 




SLW 


UD+76#1 


01211 


-0 


50000 


1 


00616 




CAL 


UD+78>1 


01212 





60200 


1 


00615 




SLW 


UD+77»1 


01213 


-o 


50000 


1 


00617 




CAL 


UD+79#1 


01214 





60200 


1 


00616 




SLW 


UD+78#1 


01215 


-0 


50000 


1 


00602 




CAL 


UD+66»1 


01216 


-0 


60200 


1 


00614 




ORS 


UD+76»1 


01217 


2 


00040 


1 


01143 




TIX 


DH9»1»32 


01220 





53400 


1 


00042 




LXA 


12A*1 


01221 





70000 


1 


00517 


DH21 


CPY 


UD+15»1 


01222 





70000 


1 


00557 




CPY 


UD+47#1 


01223 


2 


00001 


1 


01221 




TIX 


DH21»1#1 


01224 


-0 


53400 


4 


00524 




LXD 


DH4»4 


01225 





02000 


4 


00002 




TRA 


2»4 


01226 


-0 


00000 





00000 


DH12 


MZE 




01227 


-373737373737 


DH19 


OCT 


-373737373737 










01230 




BSS 




READ BCD TAPE 


01230 


-0 


63400 


1 


00421 


RTD 


SXD 


XA»1 


01231 


-0 


63400 


2 


00422 




SXD 


XB»2 


01232 


-0 


50000 


4 


00001 




CAL 


1»4 


01233 





07400 


2 


00151 




TSX 


INDEX#2 


01234 





76000 





00006 




COM 




01235 





73400 


1 


00000 




PAX 


0»1 


01236 





76000 





00006 




COM 




01237 





77100 





00022 




ARS 


18 


01240 


-0 


50100 





01306 




ORA 


0200A 


01241 





62100 





01242 




STA 


RDT1 


01242 





76200 





00200 


RDT1 


RTD 


() 


01243 


-0 


76000 





00012 


RDT3 


RTT 




01244 





76100 





00000 




NOP 




01245 





53400 


2 


00040 




LXA 


ZER0»2 


01246 





70000 


1 


77777 




CPY 


-1*1 


01247 


1 


00001 


2 


01253 




TXI 


RDT4*2»1 


01250 


1 


77775 


4 


00146 




TXI 


END*4»-3 


01251 





76000 





00000 


RDT7 


CLM 




01252 


1 


77776 


4 


00146 




TXI 


END»4»-2 


01253 





70000 


1 


00000 


RDT4 


CPY 


Otl 


01254 


1 


77777 


1 


01264 




TXI 


RDT6»1»-1 


01255 





02000 





01251 




TRA 


RDT7 


01256 


-0 


75400 


2 


00000 




PXD 


0»2 


01257 





76600 





00333 




IOD 




01260 


-o 


77300 





00374 




RQL 


252 


01261 


-0 


76000 





00012 




RTT 




01262 


1 


77776 


4 


00146 




TXI 


END* 4 > -2 



KILL ZERO ZONE BITS 
ON BLANK CHAR 

ELIMINATE ZERO DIGIT BITS 
+ AND - CHAR 
TRANSFER ZERO ZONE 
BITS TO ZERO DIGIT R6 
MOVE X Y ZONE BITS 
INTO COPY POSITION 



OBTAIN ZERO BITS 
ON SIGNED ZEROS 



COPY 
LOOP 

RESTORE IR-4 
RETURN 



READ WRITE BCD TAPE COMPONENT 



SAVE INDEX REGS. 

OBTAIN CALL SEQ. 
INDEX ORIGIN 

SET IR-1«COM(ORIGIN) 



BUILD TAPE ADDR 

SELECT TAPE 
TURN OFF RTT 

CLEAR IR-2 

FIRST COPY 

STEP WORD COUNT 

EOF RETURN 

FALSE EOR SKIP 

FALSE SKIP RETURN 

SUBSEQUENT COPIES 

STEP ADDR 

FALSE EOF SKIP 

EOR» PLACE WORD COUNT IN AC 

1*0. DELAY 

RTT DELAY 

ON» TAPE CHECK RETURN 



DPP10616 
DPP10617 
DPP1Q618 
DPP10619 
DPP10620 
DPP10621 
DPP10622 
DPP10623 
DPP10624 
DPP10625 
DPP10626 
DPP10627 
DPP10628 
DPP10629 
DPP10630 
DPP10631 
DPP10632 
DPP10633 
DPP10634 
DPP10635 
DPP10636 
DPP10637 
DPP 10638 
DPP10639 
DPP10640 
DPP10641 
DPP10642 
DPP10643 
DPP 10644 
DPP10645 
DPP10646 
DPP10647 
DPP 10648 
DPP10649 
DPP10650 
DPP10651 
DPP10652 
DPP10653 
DPP10654 
DPP10655 
DPP10656 
DPP10657 
DPP10658 
DPP10659 
DPP10660 
DPP10661 
DPP 10662 
DPP10663 
DPP10664 
DPP10665 
DPP10666 
DPP10667 
DPP 10668 
DPP10669 
DPP10670 
DPP10671 






01263 


1 


77774 


4 


00146 




TXI 


END»4*-4 


01264 


1 


00001 


2 


01253 


RDT6 


TXI 


RDT4»2fl 
WRITE BCD 


01265 


•0 


63400 


1 


00421 


WTD 


SXO 


XA»1 


01266 


-0 


63400 


2 


00422 




SXD 


XB.2 


01267 


-0 


50000 


4 


00001 




CAL 


1*4 


01270 





73400 


1 


00000 




PAX 


0*1 


01271 


-0 


50000 


4 


00002 




CAL 


2»4 


01272 





07400 


2 


00151 




TSX 


INDEX»2 


01273 





62100 





01301 




STA 


WDT1 


01274 





77100 





00022 




ARS 


18 


01275 


-0 


50100 





01306 




ORA 


02 00 A 


01276 





62100 





01277 




STA 


WDT2 


01277 





76600 





00200 


WDT2 


WTD 


O 


01300 


-0 


73400 


2 


00000 




PDX 


0*2 


01301 





70000 


2 


00000 


WDT1 


CPY 


<)»2 


01302 


-2 


00001 


1 


01304 




TNX 


WDT3»1»1 


01303 


1 


77777 


2 


01301 




TXI 


WDT1»2»-1 


01304 





76600 





00333 


WDT3 


IOD 




01305 


1 


77775 


4 


00146 




TXI 


END»4#-3 


01306 


+000000000200 


0200A 


OCT 


200 



01307 



BSS 



READ BINARY TAPE 



01307 


-0 


63400 


2 


00422 


RTB 


SXD 


XB»2 


01310 





07400 


2 


01421 




TSX 


RWBTS»2 


01311 





62100 





01312 




STA 


RTB1 


01312 





76200 





00220 


RTB1 


RTB 


() 


01313 





60000 





00424 




STZ 


Tl 


01314 





53400 


2 


01436 




LXA 


1S#2 


01315 


-0 


50000 


4 


77777 




CAL 


-1»4 


01316 


-0 


73400 


1 


00000 




PDX 


0.1 


01317 





77100 





00022 




ARS 


18 


01320 





36100 


4 


77777 




ACL 


-1*4 


01321 





62100 





01324 




STA 


RTB3 


01322 





62100 





01341 




STA 


RTB4 


01323 


-0 


50000 





00424 




CAL 


Tl 


01324 


-0 


70000 


1 


00000 


RTB3 


CAD 


O.l 


01325 


1 


00001 


2 


01353 




TXI 


RTB6»2»1 


01326 





02000 





01332 




TRA 


RTB5 


01327 





76000 





00000 


RTB21 


CLM 




01330 


-0 


53400 


4 


00423 




LXD 


XC*4 


01331 


1 


77776 


4 


00146 




TXI 


END»4*-2 


01332 


-0 


53400 


4 


00423 


RTB5 


LXD 


XC»4 


01333 


1 


77775 


4 


00146 




TXI 


END»4»-3 


01334 


-0 


73400 


1 


00000 


RTB12 


PDX 


0»1 


01335 





77100 





00022 




ARS 


18 


01336 





36100 


4 


77777 




ACL 


-1.4 


01337 





62100 





01341 




STA 


RTB4 


01340 


-o 


50000 





00424 




CAL 


Tl 


01341 


-0 


70000 


1 


00000 


RTB4 


CAD 


O.l 


01342 


1 


00001 


2 


01353 




TXI 


RTB6.2.1 



OFF* NORMAL RETURN 
STEP WORD COUNT 



SAVE I.R. 

OBTAIN W 

SET IR-1=W 

OBTAIN AND INDEX ORIGIN 

SET FIRST ADDR. 



SELECT TAPE 

CLEAR IR-2 

COPY 

W 

WORDS 

DELAY USE OF MQ 

RETURN 



READ WRITE BINARY TAPE COMPONENT 



SAVE IR-2 



SELECT TAPE 
CLEAR CHECK SUM 
SET WORD COUNT*-l 
GET FIRST C.W. 
SET IR-1=W 

(A+W) 



FIRST COPY 

STEP WORD COUNT 

EOF 

FALSE EOR SKIP 

FALSE SKIP RETURN 
EOF RETURN 

SET IR-l-W 

(A+W) 



STEP WORD COUNT 



DPP10672 
DPP10673 
DPP 10674 
DPP10675 
DPP10676 
DPP10677 
DPP10678 
DPP 10679 
DPP10680 
DPP10681 
DPP10682 
DPP10683 
DPP10684 
DPP10685 
DPP10686 
DPP10687 
DPP 10686 
DPP 1068 9 
DPP10690 
DPP10691 
DPP 10692 
DPP10693 
DPP 10694 
DPP10695 
DPP10696 
DPP10697 
DPP10698 
DPP10699 
DPP10700 
DPP 10 701 
DPP10702 
DPP10703 
DPP10704 
DPP10705 
DPP10706 
DPP10707 
DPP10708 
DPP10709 
DPP10710 
DPP10711 
DPP1Q712 
DPP10713 
DPP10714 
DPP10715 
DPP10716 
DPP10717 
DPP10718 
DPP10719 
DPP 10720 
DPP10721 
DPP10722 
DPP10723 
DPP10724 
DPP10725 
DPP 10 726 
DPP10727 






01343 





02000 





01327 




TRA 


RTB21 




01344 





76000 





00006 


RTB15 


COM 






01345 





76700 





00001 




ALS 


1 




01346 


-0 


53400 


4 


00423 




LXD 


XC»4 




01347 





10000 





01351 




TZE 


RTB9 




01350 


1 


00002 


4 


01351 




TXI 


RTB9»4»2 




01351 


-0 


75400 


2 


00000 


RTB9 


PXD 


0»2 




01352 


1 


77774 


4 


00146 




TXI 


END»4#-4 




01353 


2 


00001 


1 


01341 


RTB6 


TIX 


RTB4»1»1 




01354 





60200 





00424 




SLW 


Tl 




01355 





50000 


4 


00000 




CLA 


0#4 




01356 


-0 


12000 





01360 




TMI 


RTB11 




01357 


1 


77777 


4 


01334 




TXI 


RTB12>4»-1 




01360 


-o 


50000 





00424 


RTB11 


CAL 


Tl 




01361 


-o 


70000 





00425 




CAD 


T2 




01362 





02000 





01365 




TRA 


RTB13 




01363 





02000 





01327 




TRA 


RTB21 




01364 





02000 





01344 




TRA 


RTB15 




01365 


-0 


70000 





00425 


RTB13 


CAD 


T2 




01366 





02000 





01365 




TRA 


RTB13 




01367 





02000 





01327 




TRA 


RTB21 




01370 


1 


00001 


2 


01344 




TXI 


RTB15t2»l 
WRITE BINARY 


TAPE 


01371 


-0 


63400 


2 


00422 


WTB 


SXD 


XB»2 




01372 





07400 


2 


01421 




TSX 


RWBTS»2 




01373 





62100 





01374 




STA 


WBT1 




01374 





76600 





00220 


WBT1 


WTB 


() 




01375 





60000 





00424 




STZ 


Tl 




01376 


-0 


50000 


4 


77777 


WBT5 


CAL 


-1»4 




01377 





62100 





01403 




STA 


WBT2 




01400 


-0 


73400 


1 


00000 




PDX 


0»1 




01401 


-0 


50000 





00424 




CAL 


Tl 




01402 





53400 


2 


00040 




LXA 


ZER0#2 




01403 


-0 


70000 


2 


00000 


WBT2 


CAD 


()»2 




01404 


-2 


00001 


1 


01406 




TNX 


WBT3»ltl 




01405 


1 


77777 


2 


01403 




TXI 


WBT2»2»-1 




01406 





60200 





00424 


WBT3 


SLW 


Tl 




01407 





50000 


4 


00000 




CLA 


0»4 




01410 


-o 


12000 





01412 




TMI 


WBTB 




01411 


1 


77777 


4 


01376 




TXI 


WBT5#4»-1 




01412 


-0 


50000 





00424 


WBTB 


CAL 


Tl 




01413 





76000 





00006 




COM 






01414 





60200 





00425 




SLW 


T2 




01415 





70000 





00425 




CPY 


T2 




01416 


-0 


53400 


4 


00423 




LXD 


XC»4 




01417 





76600 





00333 




IOD 






01420 


1 


77776 


4 


00146 




TXI 


END»4»-2 
READ-WRITE BI 


NARY 


01421 


-0 


63400 


1 


00421 


RWBTS 


SXD 


XA#1 




01422 


-0 


63400 


2 


00425 




SXD 


T2»2 




01423 


-0 


63400 


4 


00423 




SXD 


XC»4 




01424 





50000 


4 


00001 




CLA 


1»4 




01425 





07400 


2 


00151 




TSX 


INDEX»2 




01426 





76000 





00006 




COM 







FALSE EOF SKIP 
EOR 

RESTORE IR-4 
CHECK SUM TEST 
ERROR RETURN 
SET WORD COUNT 

TEST FOR W WORDS 

IS THIS LAST 
CONTROL WORD 
STEP C«W« TABLE 

FIRST DUMMY COPY 

FALSE EOF SKIP 

EOR 

SUBSEQUENT DUMMY COPIES 

FALSE EOF SKIP 
ADJUST WORD COUNT 



SAVE IR-2 
SET UP 

SELECT TAPE 
CLEAR CHECK SUM 
GET CONTROL WORD 
SET A 

SET IR-1«W 
GET CHECK SUM 
SET IR-2=0 
COPY 

TEST FOR W WORDS 
STEP COPY ADDR. 
SAVE CHECK SUM 
TEST SIGN FOR 
LAST CONTROL WORD 
STEP C«T» ADDR. 
COPY 

COMPLIMENTED 
CHECK 
SUM 

RESTORE. 

DELAY USE OF MQ 
RETURN 
TAPE SUBROUTINE 

SAVE IR 



GET CALL SEQ. 
INDEX 



DPP10728 
DPP10729 
DPP10730 
DPP 10 731 
DPP 10732 
DPP10733 
DPP 10734 
DPP10735 
DPP10736 
DPP 10737 
DPP 10738 
DPP10739 
DPP10740 
DPP10741 
DPP 10742 
DPP 10743 
DPP10744 
DPP 10 745 
DPP10746 
DPP10747 
DPP 10 748 
DPP10749 
DPP10750 
DPP10751 
DPP10752 
DPP10753 
DPP10754 
DPP10755 
DPP 10756 
DPP10757 
DPP 10 758 
DPP10759 
DPP10760 
DPP10761 
DPP10762 
DPP10763 
DPP10764 
DPP10765 
DPP10766 
DPP10767 
DPP10768 
DPP10769 
DPP10770 
DPP10771 
DPP10772 
DPP10773 
DPP10774 
DPP10775 
DPP 10776 
DPP10777 
DPP10778 
DPP10779 
DPP10780 
DPP10781 
DPP10782 
DPP10783 






01427 





73400 


4 


00000 




PAX 


0»4 


01430 





76000 





00006 




COM 




01431 





77100 





00022 




ARS 


18 


01432 


-0 


50100 





01435 




OR A 


144A 


01433 


-0 


53400 


2 


00425 




LXD 


T2»2 


01434 





02000 


2 


00001 




TRA 


1#2 


01435 





00000 





00220 


144A 




144 


01436 





77777 


7 


77777 
01437 


IS 


HTR 
BSS 


-lt7t-l 


MOVE 


01437 


-0 


63400 


1 


00421 


MOV 


SXD 


XA»1 


01440 


-0 


63400 


2 


00422 




SXD 


XB»2 


01441 


-0 


50000 


4 


00002 




CAL 


2»4 


01442 





07400 


2 


00151 




TSX 


INDEX. 2 


01443 





36100 


4 


00001 




ACL 


1»4 


01444 





62100 





01453 




STA 


MOV1 


01445 


-0 


50000 


4 


00003 




CAL 


3»4 


01446 





07400 


2 


00151 




TSX 


INDEX»2 


01447 





36100 


4 


00001 




ACL 


1*4 


01450 





62100 





01454 




STA 


MOV2 


01451 


-0 


5 0000 


4 


00001 




CAL 


1#4 


01452 





73400 


2 


00000 




PAX 


0»2 


01453 





56000 


2 


00000 


M0V1 


LDQ 


().2 


01454 


-0 


60000 


2 


00000 


MOV2 


STQ 


()»2 


01455 


2 


00001 


2 


01453 




TIX 


M0V1»2»1 


01456 


1 


77774 


4 


00147 
01457 




TXI 

BSS 


END+l»4»-4 



EXTRACT AND INSERT 


01457 


-0 


63400 


1 


00421 


XIN 


SXD 


XA»1 


01460 


-0 


63400 


2 


00422 




SXD 


XB»2 


01461 





50000 


4 


00001 


XIN2 


CLA 


1»4 


01462 





73400 


1 


00000 




PAX 


0»1 


01463 





50000 


4 


00002 




CLA 


2*4 


01464 





07400 


2 


00220 




TSX 


XTRt2 


01465 





50000 


4 


00003 




CLA 


3»4 


01466 





07400 


2 


00257 




TSX 


INS#2 


01467 





50000 


4 


00003 




CLA 


3»4 


01470 


-0 


12000 





01472 




TMI 


XIN1 


01471 


1 


77775 


4 


01461 




TXI 


XIN2»4»-3 


01472 


1 


77774 


4 


00146 
01473 


XIN1 


TXI 
BSS 


END»4*-4 



BCD COMPARISON 


01473 


-o 


63400 


1 


00421 


COM 


SXD 


XA*1 


01474 


-o 


63400 


2 


00422 




SXD 


XB»2 


01475 





50000 


4 


00001 




CLA 


1»4 


01476 





73400 


1 


00000 




PAX 


0»1 


01477 


-0 


50000 


4 


00003 




CAL 


3»4 


01500 


-0 


73400 


2 


00000 




PDX 


0*2 


01501 


3 


00000 


2 


01503D 




TXH 


C0M1»2 



SET IR-4«C0M(C) 
BUILD TAPE ADDR. 
EXIT 



MOVE COMPONENT 

SAVE I»R« 

GET A 
INDEX A 
A+W 

GET B 
INDEX B 
B+W 

GET W 

MOVE 
LOOP 

RETURN 

EXTRACT AND INSERT COMPONENT 

SAVE I.Ri 



SET IR-1*N 
EXTRACT 

INSERT 



TEST FOR LAST EXTRACT-INSERT 
GET NEXT EXTRACT-INSERT 
RETURN 

ALPHANUMERIC COMPARISON COMPONENT 



SAVE IR 

GET N 

SET IR-l-N 

IF S = 0» REPLACE 

S BY 1 



DPP10784 
DPP10785 
DPP 10 786 
DPP10787 
DPP10788 
DPP10789 
DPP10790 
DPP10791 
DPP10792 
DPP10793 
DPP10794 
DPP10795 
DPP10796 
DPP10797 
DPP10798 
DPP10799 
DPP10800 
DPP10801 
DPP10802 
DPP10803 
DPP10804 
DPP10805 
DPP10806 
DPP10807 
DPP10808 
DPP10809 
DPP10810 
DPP10811 
DPP10812 
DPP10813 
DPP10814 
DPP10815 
DPP10816 
DPP10817 
DPP10818 
DPP10819 
DPP10820 
DPP10821 
DPP10822 
DPP10823 
DPP10824 
DPP10825 
DPP10826 
DPP10827 
DPP10828 
DPP10829 
DPP10830 
DPP10831 
DPP10832 
DPP10833 
DPP 10834 
DPP10835 
DPP10836 
DPP10837 
DPP10838 
DPP10839 



-4 



01502 





36100 00016 




ACL 


ID 


01503 





60200 00425 


COMl 


SLW 


T2 


01504 


-o 


50000 4 00002 




CAL 


2t4 


01505 


-o 


73400 2 00000 




PDX 


0»2 


01506 


3 


00000 2 01510D 




TXH 


COM2 #2 


01507 





36100 00016 




ACL 


ID 


01510 





60200 00424 


COM2 


SLW 


Tl 


01511 


-0 


63400 1 00426 




SXD 


T3»l 


01512 


-3 


00052 1 01514 




TXL 


C0M3»l»U/2 


01513 





53400 1 00032 




LXA 


HUA»1 


01514 


-0 


63400 1 00427 


COM3 


SXD 


T4»l 


01515 





07400 2 00220 




TSX 


XTR*2 


01516 





62100 01523 




STA 


COM4 


01517 





40000 00032 




ADD 


HUA 


01520 





62100 01524 




STA 


COM 5 


01521 





62100 01533 




STA 


COM6 


01522 





62100 01547 




STA 


COM7 


01523 





56000 1 00000 


COM4 


LDQ 


( )*1 


01524 


-o 


60000 1 00000 


COM5 


STQ 


()*1 


01525 


2 


00001 1 01523 




TIX 


C0M4*1*1 


01526 


-0 


53400 1 00427 




LXD 


T4*l 


01527 


-0 


50000 00425 




CAL 


T2 


01530 





07400 2 00220 




TSX 


XTR*2 


01531 





62100 01534 




STA 


COM8 


01532 





62100 01555 




STA 


COM9 


01533 





50000 1 00000 


COM6 


CLA 


( )#1 


01534 





40200 1 00000 


C0M8 


SUB 


Oil 


01535 


-0 


10000 01547 




TN2 


COM7 


01536 


2 


00001 1 01533 




TIX 


C0M6»1#1 


01537 


-0 


53400 1 00426 




LXD 


T3tl 


01540 


-3 


00052 1 01565 




TXL 


COMll»l»U/2 


01541 


-0 


50000 00425 




CAL 


T2 


01542 





36100 00034 




ACL 


HUD 


01543 





60200 00425 




SLW 


T2 


01544 


-0 


50000 00424 




CAL 


Tl 


01545 





36100 00034 




ACL 


HUD 


01546 


1 


77726 1 01510 




TXI 


C0M2»l»-U/2 


01547 





50000 1 00000 


COM7 


CLA 


()»1 


01550 





73400 2 00000 




PAX 


0*2 


01551 


-0 


50000 2 00145 




CAL 


BCD* 2 


01552 





10000 01567 




TZE 


COM12 


01553 


-0 


32000 00021 




ANA 


CXSO 


01554 





60200 00430 




SLW 


T5 


01555 





50000 1 00000 


C0M9 


CLA 


()#1 


01556 





73400 2 00000 




PAX 


0»2 


01557 


-0 


50000 2 00145 




CAL 


BCD » 2 


01560 





10000 01567 




TZE 


COM 12 


01561 


-0 


32000 00021 




ANA 


CXSO 


01562 





40200 00430 




SUB 


T5 


01563 





12000 01566 




TPL 


COM 13 


01564 


1 


77773 4 00146 




TXI 


END»4»-5 


01565 


1 


77772 4 00146 


COM 11 


TXI 


END»4*-6 


01566 


1 


77771 4 00146 


C0M13 


TXI 


END*4»-7 


01567 


1 


77774 4 00146 


COM12 


: TXI 


END»4*-4 



SAME FOR R 



SAVE N 

IF N IS G.T. U/2* 

SET N = U/2 

SAVE N 

EXTRACT FIELD 1 

SET (UD+N) 

SET (UD+U/2+N) 



MOVE FIELD 1 TO 
UPPER HALF OF U& 

EXTRACT FIELD 2 



SET (UD+N) 
COMPARE BCD 



PARTIAL FIELDS EQUAL 
IF N IS G.T. U/2t 
WE ARE NOT FINISHED 
FORM (B»T*S+U/2) 

FORM (A*T»R+U/2) 

REDUCE N B U/2 

FIELDS UNEQUAL* 

COMPARE ORDER 

NUMBERS 

IS CHAR. LEGAL 



IS CHAR. LEGAL 

2-1 

1 G. T. 2 
EQUAL RETURN 
1 L. T. 2 
ERROR RETURN 



DPP10840 

DPP1Q841 

DPP10842 

DPP10843 

DPP 10844 

DPP10845 

DPP 10846 

DPP10847 

DPP10848 

DPP10849 

DPP10850 

DPP10851 

DPP10852 

DPP10853 

DPP 10 8 54 

DPP10855 

DPP10856 

DPP10857 

DPP10858 

DPP10859 

DPP10860 

DPP10861 

DPP10862 

DPP10863 

DPP10864 

DPP10865 

DPP10866 

DPP 10867 

DPP 10868 

DPP 10869 

DPP10870 

DPP10871 

DPP10872 

DPP10873 

DPP10874 

DPP10875 

DPP10876 

DPP10877 

DPP10878 

DPP10879 

DPP10880 

DPP10881 

DPP10882 

DPP10883 

DPP10884 

DPP10885 

DPP10886 

DPP10887 

DPP10888 

DPP10889 

DPP10890 

DPP10891 

DPP 10892 

DPP10893 

DPP10894 

DPP10895 



00 









01570 




BSS 




BLANK PACKED BLOCK 


01570 


-0 63400 


1 


00421 


BPB 


SXD 


XA»1 


01571 


-0 63400 


2 


00422 




SXD 


XB»2 


01572 


50000 


4 


00001 




CLA 


Ii4 


01573 


07400 


2 


00207 




TSX 


SBAt2 


01574 


62100 





01576 




STA 


BPB1 


01575 


-0 50000 





01601 




CAL 


BLKS 


01576 


60200 


1 


00000 


BPB1 


SLW 


()»1 


01577 


2 00001 


1 


01576 




TIX 


BPBltlf 1 


01600 


1 77776 


4 


00146 




TXI 


END»4»~2 


01601 


606060606060 


BLKS 


BCD 


1 



01602 



01602 -0 63400 1 00421 

01603 53400 1 00044 

01604 60000 1 00477 

01605 2 00001 1 01604 

01606 60000 00446 

01607 -0 53400 1 00421 
01610 02000 4 00001 



BSS 



BLANK PACKED BLOCK COMPONENT 

SAVE I.R. 

INDEX AND SET 

IR-1»W 

SET (A+W) 

STORE BLANKS 

RETURN 

ARITHMETIC COMPONENT 



ZAC ROUTINE SETS THE PSEUDO-AC 
TO PLUS ZERO 



ZAC 
ACZA 



SXD 
LXA 
STZ 
TIX 
STZ 
LXD 
TRA 



XA»1 

0024.»1 

AC+24»1 

ACZA»1»1 

SAC 

XA»1 

1»4 



CLEAR PSEUDO AC 

SET SIGN OF PSEUDO AC TO PLUS 



CLA ROUTINE PLACES THE NUMBER IN 
THE CALLING SEQUENCE INTO THE 
PSEUDO-AC. CLS CHANGES ITS SIGN 



01611 





60000 





00424 


CLA 


STZ 


Tl 


01612 





02000 





01615 




TRA 


CLAF 


01613 





56000 





00002 


CLS 


LDO 


9A 


01614 


-0 


60000 





00424 




STQ 


Tl 


01615 


-0 


63400 


1 


00421 


CLAF 


SXD 


XA»1 


01616 


-0 


63400 


2 


00422 




SXD 


XB.2 


01617 





07400 


2 


02262 




TSX 


SET»2 


01620 





62100 





01623 




STA 


CLAA 


01621 


-0 


63400 


1 


01626 




SXD 


CLAB»1 


01622 





53400 


2 


ooooo 




LXA 


0001. #2 


01623 





50000 


2 


ooooo 


CLAA 


CLA 


*»2 


01624 





60100 


2 


00477 




STO 


AC+24»2 


01625 


1 


00001 


2 


01626 




TXI 


CLAB»2»1 


01626 


-3 


ooooo 


2 


01623D 


CLAB 


TXL 


CLAA»2»* 


01627 


3 


00030 


2 


01632 


CLAC 


TXH 


CLAD.2»24 


01630 





60000 


2 


00477 




STZ 


AC+24»2 


01631 


1 


00001 


2 


01627 




TXI 


CLAC»2tl 


01632 





53400 


2 


00424 


CLAD 


LXA 


Tlt2 


01633 





50000 





02353 




CLA 


SNO 


01634 


-3 


00000 


2 


01636D 




TXL 


CLAE»2.0 


01635 





40200 





ooooo 




SUB 


0001, 


01636 





60200 





00446 


CLAE 


SLW 


SAC 


01637 


1 


77774 


4 


00146 




TXI 


END»4»-4 



SAVE I. R. 

EXTRACT FIELD TO UD AND SNO 

MOVE FIELD FROM UD TO PSEUDO AC 
FILL OUT REST OF PSEUDO AC WITH 



TRANSFER SIGN FROM SNO TO SAC 
FLIP SIGN IF WANT CLS 



NORMAL RETURN 



DPP10896 
DPP 10 897 
DPP1089S 
DPP10899 
DPP10900 
DPP10901 
DPP10902 
DPP10903 
DPP 10904 
DPP10905 
DPP10906 
DPP10907 
DPP10908 
DPP10909 
DPP 10 910 
DPP10911 
DPP10912 
DPP10913 
DPP10914 
DPP 10 9 15 
DPP10916 
DPP10917 
DPP10918 
DPP10919 
DPP10920 
DPP10921 
DPP10922 
DPP10923 
DPP10924 
DPP10925 
DPP10926 
DPP10927 
DPP10928 
DPP10929 
DPP10930 
DPP 10931 
DPP1Q932 
DPP10933 
DPP10934 
DPP1Q935 
DPP10936 
DPP10937 
DPP 10938 
DPP10939 
DPP10940 
DPP10941 
DPP10942 
DPP10943 
ZEROS DPP1Q944 
DPP10945 
DPP10946 
DPP10947 
DPP10948 
DPP10949 
DPP10950 
DPP10951 






ADD ROUTINE ADDS THE NUMBER IN THE 
CALLING SEQUENCE TO THE NUMBER IN 
THE PSEUDO-AC 



01640 


-0 


63400 


1 


00421 


ADD 


SXD 


XA#1 


01641 


-0 


63400 


2 


00422 




SXD 


XB»2 


01642 





07400 


2 


02262 




TSX 


SET»2 


01643 





62100 





01656 




STA 


ADDC 


01644 





62100 





01717 




STA 


SUBC 


01645 


-0 


63400 


1 


01670 




SXD 


ADDB 1 1 


01646 


-0 


63400 


1 


01727 




SXD 


SUBB»1 


01647 





50000 





00446 




CLA 


SAC 


01650 





40200 





02353 




SUB 


SNO 


01651 


-0 


1U000 





01713 




TNZ 


SUBG 


01652 





60000 





02354 


ADDG 


STZ 


CARRY 


01653 





60000 





00424 




STZ 


Tl 


01654 





56000 





00000 




LDQ 


0001. 


01655 





53400 


2 


00000 




LXA 


0001. »2 


01656 





50000 


2 


00000 


ADDC 


CLA 


*»2 


01657 





40000 





02354 




ADD 


CARRY 


01660 





40000 


2 


00477 


ADDE 


ADD 


AC+24»2 


01661 





60100 


2 


00477 




STO 


AC+24»2 


01662 





60000 





02354 




STZ 


CARRY 


01663 





40200 





00003 




SUB 


0010. 


01664 


-0 


12000 





01667 




TMI 


ADDA 


01665 


-0 


60000 





02354 




STQ 


CARRY 


01666 





60100 


2 


00477 




STO 


AC+24*2 


01667 


1 


00001 


2 


01670 


ADDA 


TXI 


ADDB » 2 » 1 


01670 


-3 


00000 


2 


01656D 


ADDS 


TXL 


ADDC»2»* 


01671 





50000 





02354 




CLA 


CARRY 


01672 





10000 





01675 




TZE 


ADDF 


01673 


-3 


00030 


2 


01660 




TXL 


ADDE»2>24 


01674 





60100 





02355 




STO 


OFLOW 


01675 





53400 


2 


00424 


A DDF 


LXA 


Tlt2 


01676 


-3 


00000 


2 


01700D 




TXL 


ADDH » 2 » 


01677 


1 


77776 


4 


00146 




TXI 


END»4»-2 


01700 


1 


77774 


4 


00146 


ADDH 


TXI 


END»4»-4 



EXTRACT FIELD TO UD AND SNO 



OPERATION IS ADDITION 

DO NOT CHANGE SIGN OF PSEUDO AC 



A CARRY OCCURRED 



TEST WHETHER ENTERED 
FROM SHIFT ROUND ROUTINE 



SUB ROUTINE SUBTRACTS THE NUMBER 
IN THE CALLING SEQUENCE FROM THE 
NUMBER IN THE PSEUDO-AC 



01701 


-0 


63400 


1 


00421 


SUB 


SXD 


XA»1 


01702 


-0 


63400 


2 


00422 




SXD 


XB»2 


01703 





07400 


2 


02262 




TSX 


SET»2 


01704 





62100 





01656 




STA 


ADDC 


01705 





62100 





01717 




STA 


SUBC 


01706 


-0 


63400 


1 


01670 




SXD 


ADDB»1 


01707 


-0 


63400 


1 


01727 




SXD 


SUBB»1 


01710 





50000 





00446 




CLA 


SAC 


01711 





40200 





02353 




SUB 


SNO 


01712 


-0 


10000 





01652 




TNZ 


ADDG 


01713 





60000 





02354 


SUBG 


STZ 


CARRY 



EXTRACT FIELD TO UD AND SNO 



OPERATION IS SUBTRACTION 



DPP 109 52 

DPP10953 

DPP10954 

DPP10955 

DPP10956 

DPP10957 

DPP10958 

DPP10959 

DPP10960 

DPP10961 

DPP10962 

DPP10963 

DPP10964 

DPP10965 

DPP 10966 

DPP10967 

DPP10968 

DPP 10969 

DPP10970 

DPP10971 

DPP10972 

DPP10973 

DPP10974 

DPP10975 

DPP10976 

DPP10977 

DPP 10978 

DPP10979 

DPP10980 

DPP10981 

DPP10982 

DPP 10983 

DPP10984 

DPP10985 

DPP10986 

DPP10987 

DPP10988 

DPP10989 

DPP10990 

DPP1Q991 

DPP10992 

DPP10993 

DPP 10994 

DPP10995 

DPP10996 

DPP10997 

DPP10998 

DPP10999 

DPP 11 000 

DPP 11 001 

DPP11002 

DPP11003 

DPP11004 

DPP11005 

DPP 11 006 

DPP11007 



o 



01714 





56000 





00000 




LDQ 


0001. 


01715 





53400 


3 


00000 




LXA 


0001. »3 


01716 





50000 


2 


00477 


SUBN 


CLA 


AC+24»2 


01717 





40200 


2 


00000 


SUBC 


SUB 


*»2 


01720 





40200 





02354 


SUBE 


SUB 


CARRY 


01721 





60000 





02354 




ST2 


CARRY 


01722 





12000 





01725 




TPL 


SUBA 


01723 





40000 





00003 




ADD 


0010. 


01724 


-0 


60000 





02354 




STQ 


CARRY 


01725 





60100 


2 


00477 


SUBA 


STO 


AC+24»2 


01726 


1 


00001 


2 


01727 




TXI 


SUBBt2»l 


01727 


-3 


00000 


2 


01716D 


SUBB 


TXL 


SUBN#2»* 


01730 





50000 





02354 




CLA 


CARRY 


01731 





10000 





01753 




TZE 


SUBJ 


01732 





50000 


2 


00477 




CLA 


AC+24#2 


01733 


-3 


00030 


2 


01720 




TXL 


SUBE.2»24 


01734 





50000 





02354 


SUBD 


CLA 


CARRY 


01735 





10000 





01753 




TZE 


SUBJ 


01736 





50000 





00446 




CLA 


SAC 


01737 





40200 





00000 




SUB 


0001, 


01740 





60200 





00446 




SLW 


SAC 


01741 





50200 


1 


00477 


SUB I 


CLS 


AC+24»1 


01742 


-0 


10000 





01744 




TNZ 


SUBH 


01743 


1 


00001 


1 


01741 




TXI 


SUBI »ltl 


01744 





40000 





00003 


SUBH 


ADD 


0010. 


01745 





02000 





01750 




TRA 


SUBK 


01746 





50200 


1 


00477 


SUBM 


CLS 


AC+24»1 


01747 





40000 





00002 




ADD 


0009. 


01750 





60200 


1 


00477 


SUBK 


SLW 


AC+24»1 


01751 


1 


00001 


1 


01752 




TXI 


SUBL»1»1 


01752 


-3 


00030 


1 


01746 


SUBL 


TXL 


SUBM»1*24 


01753 


1 


77774 


4 


00146 


SUBJ 


TXI 


END»4»-4 



A BORROW IS NECESSARY 



HAVE BEEN SUBTRACTING A BIG NUMBER 
FROM A SMALLER ONE 
CHANGE SIGN OF PSEUDO AC 
AND GET TENS COMPLEMENT 
OF NUMBER IN THE PSEUDO AC 

FIRST NON ZERO DIGIT FROM RIGHT 
IS COMPLEMENTED FROM TEN 



ALL FOLLOWING DIGITS ARE COMPLEMENTED 
FROM NINE 



NORMAL RETURN 



MPY ROUTINE MULTIPLIES THE NUMBER 
IN THE PSEUDO-AC BY THE NUMBER IN 
THE CALLING SEQUENCE. THE MULTIPLIER 
MUST BE IN ABSOLUTE VALUE LESS THAN 
2 TO THE 35TH POWER. 



01754 


-0 


50000 


4 


00001 


MPY 


CAL 


1*4 


01755 





56000 


4 


00002 




LDQ 


2»4 


01756 


-0 


63400 


4 


01760 




SXD 


MPYXC#4 


01757 





07400 


4 


02327 




TSX 


MDS»4 


01760 


-3 


00000 





02025T 


MPYXC 


TXL 


MPYER»0r* 


01761 





53400 


2 


00001 




LXA 


0008. »2 


01762 





60000 





02354 




STZ 


CARRY 


01763 





53400 


1 


02351 




LXA 


0007. »1 


01764 





60000 





00424 


MPYG 


STZ 


Tl 


01765 


-0 


75400 





00000T 




PXD 




01766 





76700 





00003 


MPYC 


ALS 


3 


01767 





40000 





00424 




ADD 


Tl 


01770 





40000 





00424 




ADD 


Tl 


01771 





40000 


3 


00506 




ADD 


AC+31»3 


01772 





60100 





00424 




STO 


Tl 


01773 


-3 


00000 


1 


01775D 




TXL 


MPYI»1»0 



CONVERT MULTIPLIER AND PUT IN T3 
SIGN OF PRODUCT IN SAC 



CONVERT 8 DIGITS OF THE PSEUDO AC 
TO BINARY » STARTING WITH LOW ORDER 



DPP11008 

DPP11009 

DPP11O10 

DPP11011 

DPP11012 

DPP11013 

DPP11014 

DPP11015 

DPP11016 

DPP11017 

DPP11018 

DPP11019 

DPP11020 

DPP 11021 

DPP11022 

DPP11023 

DPP11024 

DPP11025 

DPP11026 

DPP11027 

DPP11028 

DPP11029 

DPP11030 

DPP11031 

DPP11032 

DPP11033 

DPP11034 

DPP11035 

DPP11036 

DPP11037 

DPP11038 

DPP11039 

DPP11040 

DPP11041 

DPP 11 042 

DPP11043 

DPP11044 

DPP11045 

DPP11046 

DPP11047 

DPP 11 048 

DPP11049 

DPP11050 

DPP11051 

DPP11052 

DPP11053 

DPP11054 

DPP11055 

DPP 11056 

DPP11057 

DPP 110 58 

DPP11059 

DPP11060 

DPP11061 

DPP11062 

DPP11063 



o 



01774 


1 


77777 


1 


01766 




TXI 


MPYC»1»-1 


01775 





56000 





00424 


MPYI 


LDQ 


Tl 


01776 





20000 





00426 




MPY 


T3 


01777 





60100 





00424 




STO 


Tl 


02000 


-0 


60000 





00425 




STO 


T2 


02001 





50000 





00425 




CLA 


T2 


02002 





40000 





02354 




ADD 


CARRY 


02003 





76500 





00043 




LRS 


35 


02004 





40000 





00424 




ADD 


Tl 


02005 





22100 





02350 




DVP 


10E8 


02006 


-0 


60000 





02354 




STQ 


CARRY 


02007 





76500 





00043 




LRS 


35 


02010 


-0 


75400 





00000T 


MPYE 


PXD 




02011 





22100 





00003 




DVP 


0010. 


02012 





60100 


3 


00506 




STO 


AC+31»3 


02013 


3 


00006 


1 


02015 




TXH 


MPYD»1»6 


02014 


1 


00001 


1 


02010 




TXI 


MPYE»1»1 


02015 


1 


00010 


2 


02016 


MPYD 


TXI 


MPYF»2#8 


02016 


-3 


00030 


2 


01764 


MPYF 


TXL 


MPYG#2*24 


02017 





50000 





02354 




CLA 


CARRY 


02020 





10000 





02023 




T2E 


MPYH 


02021 





50000 





00000 




CLA 


0001. 


02022 





60100 





02355 




STO 


OFLOW 


02023 


-0 


53400 


4 


01760 


MPYH 


LXD 


MPYXC»4 


02024 


1 


77774 


4 


00146 




TXI 


END»4»-4 


02025 


-0 


53400 


4 


01760 


MPYER 


LXD 


MPYX04 


02026 


1 


77775 


4 


00146 




TXI 


END»4»-3 



MULTIPLY 



ADD PREVIOUS HIGH ORDER PRODUCT 
TO LOW ORDER 

SEPARATE RESULT INTO HIGH AND LOW 
ORDER PARTS 

CONVERT LOW ORDER PART TO DECIMAL 
AND STORE IN PSEUDO AC 



MOVE TO THE NEXT HIGHER 8 DIGITS 



OVERFLOW OCCURRED IF LAST HIGH 
ORDER PART IS NOT ZERO 

NORMAL RETURN 

ERROR RETURN 



DIV ROUTINE DIVIDES THE NUMBER 

IN THE PSEUDO-AC BY THE NUMBER 

IN THE CALLING SEQUENCE.THE DIVISOR 

MUST BE IN THE ABSOLUTE VALUE LESS THAN 

2 TO THE 35TH POWER. THE 

REMAINDER IS LOST. 



02027 


-0 


50000 


4 


00001 


DIV 


CAL 


1»4 


02030 





56006 


4 


00002 




LDQ 


2»4 


02031 


-0 


63400 


4 


02033 




SXD 


DIVXC»4 


02032 





07400 


4 


02327 




TSX 


MDS»4 


02033 


-3 


00000 





02076T 


DIVXC 


TXL 


DIVER#Q»* 


02034 





50000 





00426 




CLA 


T3 


02035 





10000 





02075 




TZE 


DIVJ 


02036 





53400 


2 


00044 




LXA 


0024. »2 


02037 





60000 





02354 




STZ 


CARRY 


02040 





53400 


1 


02351 




LXA 


0007.»1 


02041 





60000 





00424 


DIVG 


STZ 


Tl 


02042 


-0 


75400 





OOOOOT 




PXD 




02043 





76700 





00003 


DIVC 


ALS 


3 


02044 





40000 





00424 




ADD 


Tl 


02045 





40000 





00424 




ADD 


Tl 


02046 





40000 


3 


00506 




ADD 


AC+31»3 


02047 





60100 





00424 




STO 


Tl 


02050 


-3 


00000 


1 


02052D 




TXL 


DIVHtl»0 


02051 


1 


77777 


1 


02043 




TXI 


DIVC»1»-1 


02052 





56000 





02354 


DIVH 


LDQ 


CARRY 



CONVERT DIVISOR AND PUT IN T3 
SIGN OF QUOTIENT IN SAC 

ERROR EXIT ON ZERO DIVISOR 



CONVERT 8 DIGITS OF THE PSEUDO AC 
TO BINARY. STARTING WITH HIGH ORDER 



MULTIPLY REMAINDER FROM PREVIOUS 



DPP11064 

DPP11065 

DPP11066 

DPP11067 

DPP11068 

DPP11069 

DPP11070 

DPP11071 

DPP11072 

DPP11073 

DPP11074 

DPP11075 

DPP11076 

DPP11077 

DPP11078 

DPP11079 

DPP11080 

DPP11081 

DPP11082 

DPP11083 

DPP11084 

DPP11085 

DPP11086 

DPP11087 

DPP11088 

DPP11089 

DPP11090 

DPP11091 

DPP11092 

DPP11093 

DPP11094 

DPP11095 

DPP11096 

DPP11097 

DPP11098 

DPP11099 

DPP11100 

DPP11101 

DPP11102 

DPP11103 

DPP11104 

DPP11105 

DPP11106 

DPP11107 

DPP11108 

DPP11109 

DPP11110 

DPP11111 

DPP11112 

DPP11113 

DPP11114 

DPP11115 

DPP11116 

DPP11117 

DPP11118 

DPP11119 






02053 





20000 





02350 




MPY 


10E8 


02054 





60100 





00425 




STO 


T2 


02055 


-0 


75400 





O000OT 




PXD 




02056 





76300 





00043 




LLS 


35 


02057 





40000 





00424 




ADD 


Tl 


02060 





76500 





00043 




LRS 


35 


02061 





40000 





00425 




ADD 


T2 


02062 





22100 





00426 




DVP 


T3 


02063 





60100 





02354 




STO 


CARRY 


02064 


-0 


75400 





OOOOOT 


DIVE 


PXD 




02065 





22100 





00003 




DVP 


0010, 


02066 





60100 


3 


00506 




STO 


AC+31»3 


02067 


3 


00006 


1 


02071 




TXH 


DIVD»1»6 


02070 


1 


00001 


1 


02064 




TXI 


DIVE*1*1 


02071 


1 


77770 


2 


02072 


DIVD 


TXI 


DIVF»2»-8 


02072 


3 


00000 


2 


02041D 


DIVF 


TXH 


DIVG#2»0 


02073 


-0 


53400 


4 


02033 




LXD 


DIVXC»4 


02074 


1 


77774 


4 


00146 




TXI 


END»4»-4 


02075 





50000 





00017 


DIVJ 


CLA 


2D 


02076 


-0 


53400 


4 


02033 


DIVER 


LXD 


DIVXC»4 


02077 


1 


77775 


4 


00146 




TXI 


END»4»-3 



DIVISION BY 10 TO THE 8TH 



ADD SCALED REMAINDER TO DIVIDEND 
DIVIDE 



CONVERT QUOTIENT TO DECIMAL 
AND STOR IN PSEUDO AC 



MOVE TO NEXT LOWER 8 DI6ITS 
NORMAL RETURN 
ERROR RETURN 



02100 





60000 





00424 


STO 


STZ 


Tl 


02101 





02000 





02104 




TRA 


STOK 


02102 





56000 





00002 


STS 


LDQ 


9A 


02103 


-0 


60000 





00424 




STQ 


Tl 


02104 


-0 


63400 


1 


00421 


STOK 


SXD 


XA»1 


02105 


-0 


63400 


2 


00422 




SXD 


XB»2 


02106 





50000 


4 


00001 




CLA 


1»4 


02107 





73400 


1 


00000 




PAX 


0.1 


02110 





36100 





00035 




ACL 


LUD 


02111 





62100 





02121 




STA 


STOA 


02112 





62100 





02125 




STA 


STOB 


02113 





62100 





02137 




STA 


STOC 


02114 





53400 


2 


00424 




LXA 


T1.2 


02115 





50000 


1 


00477 


STOD 


CLA 


AC+24»1 


02116 


-0 


10000 





02125 




TNZ 


STOB 


02117 


-3 


00000 


2 


02121D 




TXL 


STOA»2»0 


02120 





50000 





00012 




CLA 


50B 


02121 





60100 


1 


00000 


STOA 


STO 


*»1 


02122 


2 


00001 


1 


02115 




TIX 


ST0D»lfl 


02123 





02000 





02127 




TRA 


STOJ 


02124 





50000 


1 


00477 


STOE 


CLA 


AC+24»1 


02125 





60100 


1 


00000 


STOB 


STO 


*»1 


02126 


2 


00001 


1 


02124 




TIX 


ST0E*1»1 


02127 





73400 


2 


00000 


STOJ 


PAX 


0,2 


02130 





56000 


2 


00145 




LDO 


BCD»2 


02131 





50000 





00446 




CLA 


SAC 


02132 





76000 





00001 




LBT 





STO ROUTINE STORES THE LOW-ORDER N 
DIGITS OF THE PSEUDO-AC INTO THE 
LOCATION IN THE CALLING SEQUENCE. 
STS ROUTINE STORES SIMILARLY* REPLACING 
LEADING ZEROS WITH BLANKS, STS MINUS 
ZERO GIVES ALL BLANKS. 



SAVE I. R. 



MOVE FIELD FROM PSEUDO AC TO UD 
JUMP OUT ON FIRST NON ZERO DIGIT 
FROM THE LEFT 
PUT IN LEADING BLANKS IF REQUESTED 



PSEUDO AC ZERO 

STORE REST OF DIGITS UNCONDITIONALLY 



GET LOW ORDER DIGIT AND SIGN IT WITH 
THE SIGN OF THE PSEUDO AC 



DPP11120 

DPP11121 

DPP11122 

DPP11123 

DPP11124 

DPP11125 

DPP11126 

DPP11127 

DPP 11 128 

DPP11129 

DPP11130 

DPP11131 

DPP11132 

DPP11133 

DPP11134 

DPP11135 

DPP11136 

DPP11137 

DPP11138 

DPP11139 

DPP 11 140 

DPP11141 

DPP11142 

DPP11143 

DPP11144 

DPP11145 

DPP11146 

DPP11147 

DPP11148 

DPP11149 

DPP11150 

DPP11151 

DPP11152 

DPP11153 

DPP11154 

DPP 11155 

DPP11156 

DPP11157 

DPP11158 

DPP11159 

DPP11160 

DPP11161 

DPP11162 

DPP11163 

DPP11164 

DPP11165 

DPP11166 

DPP11167 

DPP11168 

DPP11169 

DPP11170 

DPP11171 

DPP11172 

DPP11173 

DPP11174 

DPP11175 



00 



02133 





76300 





00014 


02134 





76300 





00021 


02135 


-0 


75400 





00000T 


02136 





76300 





00006 


02137 





60200 


1 


00000 


02140 


-0 


50000 


4 


00001 


02141 





73400 


1 


00000 


02142 


-o 


50000 


4 


00002 


02143 





07400 


2 


00257 


02144 


1 


77775 


4 


00146 



STOC 



LLS 


12 


LLS 


17 


PXD 




LLS 


6 


SLW 


*#1 


CAL 


1|4 


PAX 


Oil 


CAL 


2»4 


TSX 


INS»2 


TXI 


END»4i-3 



PLUS 

1 MINUS 



INSERT FIELD FROM UD 
RETURN 



02145 





60000 





00424 


ARS 


STZ 


Tl 


02146 





02000 





02151 




TRA 


ARSF 


02147 





56000 





00002 


SRD 


LDQ 


9A 


02150 


-0 


60000 





00424 




STQ 


Tl 


02151 


-0 


63400 


1 


00421 


ARSF 


SXD 


XAil 


02152 


-0 


63400 


2 


00422 




SXD 


XBi2 


02153 


-o 


50000 


4 


00001 




CAL 


Ii4 


02154 





10000 





02205 




TZE 


ARSE 


02155 





53400 


1 


ooooo 




LXA 


0001.il 


02156 





73400 


2 


00000 




PAX 


0.2 


02157 


3 


00030 


2 


02171 




TXH 


ARSA»2»24 


02160 





40200 





02352 




SUB 


0025« 


02161 





73400 


2 


OOOOO 




PAX 


0»2 


02162 


-0 


63400 


2 


02165 




SXD 


ARSBi2 


02163 





36100 





00027 




ACL 


LAC 


02164 





62100 





02166 




STA 


ARSC 


02165 


3 


00000 


1 


02171D 


ARSB 


TXH 


ARSA»1#* 


02166 





50000 


1 


OOOOO 


ARSC 


CLA 


*»1 


02167 





60100 


1 


00500 




STO 


AC+25»1 


02170 


1 


00001 


1 


02165 




TXI 


ARSBilil 


02171 





60000 


1 


00500 


ARSA 


STZ 


AC+25fl 


02172 


1 


00001 


1 


02173 




TXI 


ARSD»1»1 


02173 


-3 


00031 


1 


02171 


ARSD 


TXL 


ARSA»1»25 


02174 





53400 


2 


00424 




LXA 


Tli2 


02175 


-3 


00000 


2 


02205D 




TXL 


ARSE»2»0 


02176 





53400 


2 


00477 




LXA 


AC+24i2 


02177 


-3 


00004 


2 


02205 




TXL 


ARSE»2.4 


02200 





50000 





OOOOO 




CLA 


OOOlt 


02201 





73400 


2 


OOOOO 




PAX 


0,2 


02202 


-0 


63400 


2 


01670 




SXD 


ADDB»2 


02203 





56000 





OOOOO 




LDQ 


0001* 


02204 





02000 





01660 




TRA 


ADDE 


02205 


1 


77776 


4 


00146 


ARSE 


TXI 


END»4»-2 



ARS ROUTINE SHIFTS THE PSEUDO-AC 
RIGHT N PLACES* DROPPING THE N 
LOW-ORDER DIGITS AND PLACING ZEROS 
IN THE N HIGH-ORDER DIGITS. SRD 
ROUTINE ROUNDS AFTER THE SHIFT 



SAVE I. R# 



QUICK EXIT IF N=0 



SKIP DIGIT SHIFT IF N GREATER 
THAN 24 



SHIFT THE 25 -N HIGH ORDER DIGITS 
TO THE RIGHT 



FILL IN ZEROS ON THE LEFT 

EXIT NOW IF WANT ARS 

EXIT IF NO ROUNDING IS NECESSARY 

GO TO ADD ROUTINE TO ROUND 

RETURN 



ALS ROUTINE SHIFTS THE PSEUDO-AC 
LEFT N PLACES^ N HIGH ORDER PLACES 
ARE LOST AND ZEROS ARE PLACED IN 



DPP11176 
DPP11177 
DPP11178 
DPP 11 179 
DPP11180 
DPP11181 
DPP11182 
DPP11183 
DPP11184 
DPP11185 
DPP11186 
DPP11187 
DPP11188 
DPP11189 
DPP11190 
DPP11191 
DPP11192 
DPP 11 193 
DPP 11 194 
DPP 11195 
DPP11196 
DPP11197 
DPP11198 
DPP 11 199 
DPP11200 
DPP11201 
DPP11202 
DPP112Q3 
DPP 112 04 
DPP11205 
DPP11206 
DPP11207 
DPP11208 
DPP 112 09 
DPP1121Q 
DPP11211 
DPP 11212 
DPP11213 
DPP11214 
DPP11215 
DPP11216 
DPP 112 17 
DPP11218 
DPP 1121 9 
DPP 11220 
DPP 11221 
DPP 11222 
DPP 11223 
DPP11224 
DPP11225 
DPP11226 
DPP11227 
DPP11228 
DPP11229 
DPP 11230 
DPP11231 






02206 


-0 


63400 


1 


00421 


ALS 


SXD 


XA»1 


02207 





50000 


4 


00001 




CLA 


Ii4 


02210 





73400 


1 


00000 




PAX 


0.1 


02211 


-3 


00000 


1 


02224D 




TXL 


ALS0»1#0 


02212 


-0 


63400 


1 


02216 




SXD 


ALSA»1 


02213 





36100 





00030 




ACL 


LAC24 


02214 





62100 





02217 




STA 


ALSB 


02215 





53400 


1 


00044 




LXA 


0024.fi: 


02216 


-3 


00000 


1 


02222D 


ALSA 


TXL 


ALSC»1»* 


02217 





50000 


1 


00000 


ALSB 


CLA 


*»1 


02220 





60100 


1 


00477 




STO 


AC+24tl 


02221 


1 


77777 


1 


02216 




TXI 


ALSA»1»-1 


02222 





60000 


1 


00477 


ALSC 


STZ 


AC+24»1 


02223 


2 


00001 


1 


02222 




TIX 


ALSC»1*1 


02224 


-0 


53400 


1 


00421 


ALSD 


LXD 


XA»1 


02225 





02000 


4 


00002 




TRA 


2*4 



THE N LOW-ORDER PLACES. THE OVERFLOW 
TRIGGER REMAINS UNTOUCHED 



QUICK EXIT IF N=0 



SHIFT THE 24-N LOW ORDER DIGITS 
TO THE LEFT 

FILL IN ZEROS TO THE RIGHT 



TZE ROUTINE RETURNS CONTROL TO 
ALPHA +1 IF PSEUDO-AC IS ZERO AND 
TO ALPHA+2 IF IT IS NON-ZERO 



02226 


-0 


63400 


2 


00422 


TZE 


SXD 


XB#2 


02227 





53400 


2 


00044 




LXA 


0024«»2 


02230 





50000 


2 


00477 


TZEB 


CLA 


AC+24»2 


02231 


-0 


10000 





02234 




TNZ 


TZEA 


02232 


2 


00001 


2 


02230 




TIX 


TZEB»2»1 


02233 


1 


77777 


4 


00147 




TXI 


END+1»4»-1 


02234 


1 


77776 


4 


00147 


TZEA 


TXI 


END+l>4»-2 



PSEUDO AC ZERO 
NON ZERO 



TNZ ROUTINE RETURNS CONTROL TO 
ALPHA+1 IF PSEUDO-AC IS NON-ZERO 
AND TO ALPHA+2 IF IT IS ZERO 



02235 


-0 


63400 


2 


00422 


TNZ 


SXD 


XB.2 


02236 





53400 


2 


00044 




LXA 


0024«f2 


02237 





50000 


2 


00477 


TNZB 


CLA 


AC+24»2 


02240 


-0 


10000 





02243 




TNZ 


TNZA 


02241 


2 


00001 


2 


02237 




TIX 


TNZB.2»1 


02242 


1 


77776 


4 


00147 




TXI 


END+l»4i-2 


02243 


1 


77777 


4 


00147 


TNZA 


TXI 


END+1»4>-1 



PSEUDO AC NON ZERO 
ZERO 



TPL ROUTINE RETURNS CONTROL TO 
ALPHA+1 IF PSEUDO-AC IS POSITIVE 
AND TO ALPHA+2 IF IT IS NEGATIVE 



02244 50000 00446 

02245 10000 4 00001 

02246 02000 4 00002 



TPL 



CLA SAC 
TZE 1*4 
TRA 2»4 



DPP11232 
DPP11233 
DPP11234 
DPP 11235 
DPP11236 
DPP11237 
DPP11238 
DPP11239 
DPP11240 
DPP11241 
DPP11242 
DPP11243 
DPP 11244 
DPPU245 
DPP11246 
DPP11247 
DPP11248 
DPP11249 
DPP11250 
DPP11251 
DPP11252 
DPP11253 
DPP11254 
DPP11255 
DPP 11256 
DPP11257 
DPP11258 
DPP11259 
DPP11260 
DPP11261 
DPP 11262 
DPP 11263 
DPP11264 
DPP11265 
DPP11266 
DPP11267 
DPP 11 268 
DPP11269 
DPP 11270 
DPP 11271 
DPP11272 
DPP11273 
DPP11274 
DPP11275 
DPP11276 
DPP11277 
DPP 11278 
DPP11279 
DPP11280 
DPP11281 
DPP11282 
DPP11283 
DPP11284 
DPP11285 
DPP11286 
DPP11287 






02247 50000 00446 

02250 -0 10000 4 00001 

02251 02000 4 00002 



02252 50000 02355 

02253 10000 4 00002 

02254 60000 02355 

02255 02000 4 00001 



02256 50000 02355 

02257 10000 4 00001 

02260 60000 02355 

02261 02000 4 00002 



TMI 



TOV 



TMI ROUTINE RETURNS CONTROL TO 
ALPHA+1 IF PSEUDO-AC IS NEGATIVE 
AND TO ALPHA+1 IF IT IS POSITIVE 



CLA SAC 
TNZ lt4 
TRA 2»4 



TOV ROUTINE RETURNS CONTROL TO 
ALPHA+1 IF OVERFLOW HAS OCCURRED 
AND TO ALPHA+2 IF NOT. THE OVERFLOW 
TRIGGER IS RESET 



CLA OFLOW 
T2E 2»4 
STZ OFLOW 
TRA 1»4 



TNO ROUTINE RETURNS CONTROL TO 
ALPHA+1 IF NO OVERFLOW HAS OCCURRED 
AND TO ALPHA+2 IF IT HAS. THE OVERFLOW 
TRIGGER IS RESET 



TNO CLA OFLOW 
TZE 1»4 
STZ OFLOW 
TRA 2*4 



SET ROUTINE PLACES THE NUMBER IN 

THE CALLING SEQUENCE INTO UD+N-1 

THRU UD» CHECKS EACH CHARACTER* 

AND PLACES ITS SIGN INTO SNO 

SET LEAVES N IN IR-1. 

SET IS USED BY CLA* CLS* ADD* SUB. 



02262 


-0 


63400 


2 


02326 SET SXD 


SETX2*2 


02263 


-0 


50000 


4 


00001 


CAL 


1*4 


02264 





73400 


1 


00000 


PAX 


0»1 


02265 


-0 


50000 


4 


00002 


CAL 


2*4 


02266 





07400 


2 


00220 


TSX 


XTR»2 


02267 





62100 





02277 


STA 


SETA 


02270 





62100 





02305 


STA 


SETB 


02271 





40200 





00000 


SUB 


0001. 


02272 





62100 





02304 


STA 


SETC 


02273 





62100 





02320 


STA 


SETD 


02274 


-0 


75400 


1 


00000 


PXD 


Otl 


02275 


-0 


73400 


2 


ooooo 


PDX 


0*2 


02276 





50000 





00003 


CLA 


0010. 


02277 





34000 


2 


00000 SETA CAS 


*»2 


02300 


2 


00001 


2 


02277 


TIX 


SETA*2*1 


02301 


3 


00001 


2 


02325 


TXH 


SETF»2*1 


02302 


3 


00001 


2 


02325 


TXH 


SETF»2»1 


02303 





56000 





00000 


LDQ 


0001. 



EXTRACT FIELD TO UD 



CHECK CHARACTERS 

ERROR EXIT IF NON NUMERIC CHARACTER 
IN OTHER THAN UNITS POSITION 



DPP11288 

0PP11289 

DPP11290 

DPP11291 

DPP11292 

DPPH293 

DPP11294 

DPP11295 

DPP11296 

DPP11297 

DPP11298 

DPP11299 

DPP11300 

DPP11301 

DPP11302 

DPP11303 

DPP11304 

DPP11305 

DPP 11306 

DPP11307 

DPP11308 

DPP11309 

DPP 113 10 

DPP11311 

DPP11312 

DPP11313 

DPP11314 

DPP11315 

DPP11316 

DPP11317 

DPP11318 

DPP11319 

DPPil320 

DPP11321 

DPP11322 

DPP11323 

DPP 11324 

DPP11325 

DPP11326 

DPP11327 

DPP11328 

DPP11329 

DPP11330 

DPP11331 

DPP11332 

DPP11333 

DPP11334 

DPP11335 

DPP11336 

DPP11337 

DPP11338 

DPP11339 

DPP11340 

DPP11341 

DPP11342 

DPP11343 






02304 


-0 


50000 





00000 


SETC 


CAL 


# 


02305 





73400 


2 


00000 


SETB 


PAX 


*»2 


02306 


-o 


50000 


2 


00145 




CAL 


BCD»2 


02307 





76700 





00001 




ALS 


1 


02310 


-0 


76000 





00001 




PBT 




02311 





02000 





02324 




TRA 


SETER 


02312 





76700 





00002 




ALS 


2 


02313 


-o 


76000 





00001 




PBT 




02314 





56000 





00040 




LDQ 


0000. 


02315 


-0 


60000 





02353 




STQ 


SNO 


02316 





76500 





00011 




LRS 


9 


02317 


-0 


77300 





00007 




ROL 


7 


02320 


-0 


60000 





00000 


SETD 


STQ 




02321 


-0 


50000 





02305 




CAL 


SETB 


02322 


-0 


53400 


2 


02326 




LXD 


SETX2»2 


02323 





02000 


2 


00001 




TRA 


1*2 


02324 





76000 





00000 


SETER 


CLM 




02325 


1 


77775 


4 


00146 


SETF 


TXI 


END»4»-3 


02326 





00000 





02326 


SETX2 


HTR 


SETX2 



ERROR EXIT IF UNITS DIGIT IS NOT 

1 A PURE OR SIGNED DIGIT 

PUT SIGN OF FIELD IN SNO 
1 



PUT PURE DIGIT IN UNITS POSITION 

NORMAL RETURN 
ERROR RETURN 



MDS ROUTINE PLACES THE MULTIPLIER 
OR DIVISOR INTO T3 AS A BINARY 
NUMBER AND PLACES THE SIGN OF THE 
RESULT INTO SAC 
MDS IS USED BY MPY» DIV. 



02327 





60200 





02333 


MDS 


SLW 


MDSA 


02330 


-0 


60000 





02334 




STQ 


MDSB 


02331 


-0 


63400 


4 


02335 




SXD 


MDSXC»4 


02332 





07400 


4 


00323 




TSX 


DTB»4 


02333 





00000 





00000 


MDSA 


HTR 


* 


02334 





00000 





00000 


MDSB 


HTR 


* 


02335 


-3 


00000 





02346T 


MDSXC 


TXL 


MDSER»0»* 


02336 





60200 





00426 




SLW 


T3 


02337 





76500 





00000 




LRS 





02340 


-0 


75400 





OOOOOT 




PXD 




02341 


-0 


76300 





00001 




LGL 


1 


2342 





40200 





00446 




SUB 


SAC 


02343 





60200 





00446 




SLW 


SAC 


02344 


-0 


53400 


4 


02335 




LXD 


MDSXC»4 


02345 





02000 


4 


00002 




TRA 


2#4 


02346 


-0 


53400 


4 


02335 


MDSER 


LXD 


MDSXC»4 


02347 





02000 


4 


00001 




TRA 


1»4 


02350 


+000575360400 


10E8 


DEC 


100000000 


02351 





00000 





00007 


0007. 




7 


02352 





00000 





00031 


0025. 




25 










02353 


SNO 


BSS 


1 










02354 


CARRY 


BSS 


1 










02355 


OFLOW 


BSS 


1 



CONVERT FIELD TO A BINARY NUMBER 
ERROR RETURN FROM DTB 

PUT SIGN OF RESULT INTO SAC 



02356 



BSS HASH CHECKSUM COMPONENT 

CLEAR AND ADD LOGICAL FIELD 



DPP11344 

DPP11345 

DPP11346 

DPP11347 

DPP11348 

DPP11349 

DPP11350 

DPP11351 

DPP11352 

DPP11353 

DPP11354 

DPP11355 

DPP11356 

DPP11357 

DPP11358 

DPP11359 

DPP11360 

DPP11361 

DPP11362 

DPP11363 

DPP11364 

DPP11365 

DPP11366 

DPP11367 

DPP11368 

DPP11369 

DPP11370 

DPP11371 

DPP11372 

DPP11373 

DPP11374 

DPP11375 

DPP11376 

DPP11377 

DPP11378 

DPP 113 7 9 

DPP11380 

DPP11381 

DPP 11382 

DPP11383 

DPP11384 

DPP11385 

DPP11386 

DPP11387 

DPP11388 

DPP11389 

DPP11390 

DPP11391 

DPP11392 

DPP11393 

DPP11394 

DPP11395 

DPP11396 

DPP11397 

DPP11398 

DPP11399 



-0 



02356 


-0 


63400 


1 


00421 


CAF 


SXD 


XA»1 


02357 


-0 


63400 


2 


00422 




SXD 


XB»2 


02360 


-0 


50000 


4 


00001 




CAL 


1»4 


02361 





73400 


1 


00000 




PAX 


0»1 


02362 





60000 





00424 




STZ 


Tl 


02363 


-0 


50000 


4 


00002 




CAL 


2*4 


02364 


-0 


73400 


2 


00000 




PDX 


0.2 


02365 


3 


00000 


2 


02367D 




TXH 


CAF1*2 


02366 





36100 





00016 




ACL 


ID 


02367 





60200 





00425 


CAF1 


SLW 


T2 


02370 


-0 


63400 


1 


00426 




SXD 


T3»l 


02371 


-3 


00124 


1 


02373 




TXL 


CAF2»1»U 


02372 





53400 


1 


00031 




LXA 


UAtl 


02373 





07400 


2 


00220 


CAF2 


TSX 


XTR»2 


02374 





62100 





02400 




STA 


CAF3 


02375 





53400 


2 


00041 


CAF6 


LXA 


6A*2 


02376 


-0 


75400 





00000T 




PXD 




02377 





76700 





00006 


CAF5 


ALS 


6 


02400 





36100 


1 


00000 


CAF3 


ACL 


()»1 


02401 


-2 


00001 


1 


02406 




TNX 


CAF4tl»l 


02402 


2 


00001 


2 


02377 




TIX 


CAF5*2*1 


02403 





36100 





00424 




ACL 


Tl 


02404 





60200 





00424 




SLW 


Tl 


02405 





02000 





02375 




TRA 


CAF6 


02406 





36100 





00424 


CAF4 


ACL 


Tl 


02407 


-0 


53400 


1 


00426 




LXD 


T3»l 


02410 


-3 


00124 


1 


02415 




TXL 


CAF7#1»U 


02411 





60200 





00424 




SLW 


Tl 


02412 


-0 


50000 





00425 




CAL 


T2 


02413 





36100 





00033 




ACL 


UDEC 


02414 


1 


77654 


1 


02367 




TXI 


CAF1»1»-U 


02415 


1 


77775 


4 


00146 


CAF7 


TXI 


END»4»-3 



02416 



BSS 

INSERT LEADING ZEROS 



02416 


-0 


63400 


1 


00421 


02417 


-0 


63400 


2 


00422 


02420 





50000 


4 


00001 


02421 





73400 


1 


00000 


02422 


-0 


50000 


4 


00002 


02423 





07400 


2 


00220 


02424 





62100 





02427 


02425 





62100 





02435 


02426 





56000 





00040 


02427 


-0 


50000 


1 


00000 


02430 





34000 





00012 


02431 





02000 





02433 


02432 





02000 





02435 


02433 





07400 


2 


00315 


02434 


1 


77775 


4 


00146 


02435 


-0 


60000 


1 


00000 


02436 


2 


00001 


1 


02427 


02437 





02000 





02433 



ILZ 



IZ1 



IZ3 
IZ2 



SXD 
SXD 
CLA 
PAX 
CAL 
TSX 
STA 
STA 
LDQ 
CAL 
CAS 
TRA 
TRA 
TSX 
TXI 
STQ 
TIX 
TRA 



XA#1 

XB»2 

1»4 

0.1 

2»4 

XTR»2 

IZ1 

IZ2 

ZERO 

()»1 

060A 

IZ3 

IZ2 

INSX»2 

END»4»-3 

()»1 

IZltlfl 

IZ3 



SAVE I«R« 

GET N 

SET IR-1=N 

CLEAR SUM 

GET (A»T»R) 

IF R=0» SUBSTITUTE 

R = l 

SAVE (A#T«R) 

SAVE N 

IF N IS G.T.Ut 

SET N=U 

EXTRACT 

SET (UD+N) 

SET IR-2=6 

CLEAR AC 

FORM 6 CHAR. WORDS 

TEST FOR N CHAR* 
TEST FOR 6 CHAR* 
ADD PREVIOUS SUM 
AND SAVE 

ADD PREVIOUS SUM 

IF N IS G*T. U» 

WE ARE NOT FINISHED 

FORM (A*T»R+U) 

REDUCE N BY U 
RETURN 

INSERT LEADING ZEROS COMPONENT 



SAVE I»Ri 

GET N 

SET IR-1=N 

EXTRACT INPUT 

SET (UD+N) 



COMPARE WITH BLANK 
NOT BLANK 
BLANK-INSERT ZERO 
NOT BLANK 
RETURN 



DPP11400 

DPP11401 

DPP11402 

DPP11403 

DPP 11404 

DPP11405 

DPP11406 

DPP11407 

DPP11408 

DPP11409 

DPP11410 

DPP11411 

DPP11412 

DPP11413 

DPP 11414 

DPP11415 

DPP11416 

DPP11417 

DPP11418 

DPP11419 

DPP11420 

DPP11421 

DPP11422 

DPP11423 

DPP11424 

DPP11425 

DPP11426 

DPP11427 

DPP11428 

DPP11429 

DPP.1143Q 

DPP11431 

DPP11432 

DPP11433 

DPP11434 

DPP11435 

DPP11436 

DPP11437 

DPP11438 

DPP11439 

DPP11440 

DPP11441 

DPP11442 

DPP11443 

DPP11444 

DPP11445 

DPP11446 

DPP11447 

DPP11448 

DPP11449 

DPP11450 

DPP11451 

DPP11452 

DPP11453 

DPP11454 

DPP11455 



02440 



oo 



02440 


56000 00040 


MOD 


LDQ ZERO 


02441 


02000 02443 




TRA MM 


02442 


56000 02447 


MAC 


LDQ MACF 


02443 


-0 60000 00424 


MM 


STQ Tl 


02444 


-0 63400 1 00421 




SXD XAil 


02445 


-0 63400 2 00422 




SXD XBt2 


02446 


60000 00427 




STZ T4 


02447 


-0 50000 4 00001 


MACF 


CAL 1»4 


02450 


73400 1 00000 




PAX 0,1 


02451 


76000 00006 




COM 


02452 


60200 00425 




SLW T2 


02453 


16200 02465 




TQP Ml 


02454 


76000 00006 




COM 


02455 


36100 00037 




ACL UDPHU 


02456 


62100 02460 




STA M2 


02457 


50000 1 00477 


M3 


CLA AC+24»1 


02460 


60100 1 00000 


M2 


STO ().l 


02461 


2 00001 1 02457 




TIX M3.1#l 


02462 


50000 00446 




CLA SAC 


02463 


76500 00002 




LRS 2 


02464 


1 00001 4 02505 




TXI M4»4*l 


02465 


-0 50000 4 00002 


Ml 


CAL 2»4 


02466 


07400 2 00220 




TSX XTR»2 


02467 


62100 02473 




STA M5 


02470 


36100 00032 




ACL HUA 


02471 


62100 02474 




STA M6 


02472 


62100 02504 




STA M27 


02473 


50000 1 00000 


M5 


CLA ()»1 


02474 


60100 1 00000 


M6 


STO ()»1 


02475 


2 00001 1 02473 




TIX M5»l»l 


02476 


73400 2 00000 




PAX 0,2 


02477 


56000 2 00145 




LDQ BCD»2 


02500 


-0 77300 00001 




RQL 1 


02501 


16200 02545 




TQP M7 


02502 


-0 50000 2 00145 




CAL BCD»2 


02503 


-0 32000 00015 




ANA 077A 


02504 


60200 1 00000 


M27 


SLW (),1 


02505 


-0 77300 00002 


M4 


RQL 2 


02506 


-0 60000 00426 




STQ T3 


02507 


-0 50000 4 00003 




CAL 3,4 


02510 


-0 73400 1 00000 




PDX 0»1 


02511 


-0 32000 00026 




ANA CTD 


02512 


07400 2 00220 




TSX XTR»2 


02513 


-0 75400 1 00000 




PXD 0»1 


02514 


76000 00006 




COM 


02515 


-0 73400 1 00000 




PDX 0,1 


02516 


-0 63400 1 02603 




SXD M19#l 


02517 


53400 2 00425 




LXA T2»2 


02520 


56000 00426 




LDQ T3 


02521 


-0 50000 1 00476 




CAL UD-2»1 



BSS ° MODIFY OR STORE FOR PRINT COMPONENT 

MOD ROUTINE MODIFIES A FIELD 
FOR PRINTING. IT USES A MASK TO 
INDICATE THE TYPE OF MODIFICATION. 

SET MOD FLAG (0. 

SET MAC FLAG (1) 

SAVE IR 

INITIALIZE SWITCH TO OFF 

GET N 

SET IR-1=N 

SAVE CO(N) 
MOD OR MAC 
MAVE N 
LOW DIGITS 
OF AC 
TO UPPER UD 

GET SIGN OF AC 

CORRECT IR-4 
EXTRACT FIELD 

(UD+N) 

(UD+U/2+N) 

MOVE FIELD TO 
UPPER UD 

IS UNITS POSITION 
A PURE OR 
SIGNED DIGIT 

PURIFY UNITS DIGIT 



SAVE INPUT SIGN 
EXTRACT MASK TO UD 



SET IR-1=C0(M) 

SET IR-2=CO(N) 
GET INPUT SIGN 
TEST M(l) 



DPP11456 

DPP11457 

DPP11458 

DPP11459 

DPP11460 

DPP11461 

DPP11462 

DPP11463 

DPP11464 

DPP11465 

DPP11466 

DPP11467 

DPP11468 

DPP11469 

DPP11470 

DPP11471 

DPP11472 

DPP11473 

DPP11474 

DPP11475 

DPP11476 

DPP11477 

DPP11478 

DPP11479 

DPP11480 

DPP11481 

DPP11482 

DPP11483 

DPP11484 

DPP.11485 

DPP11486 

DPP11487 

DPP11488 

DPPU489 

DPP11490 

DPP11491 

DPP11492 

DPP11493 

DPP11494 

DPP11495 

DPP11496 

DPP11497 

DPP11498 

DPP11499 

DPP11500 

DPP11501 

DPP11502 

DPP11503 

DPP11504 

DPP11505 

DPP11506 

DPP11507 

DPP11508 

DPP11509 

DPP11510 

DPP11511 






02522 





34000 





00007 




CAS 


051A 


02523 





02000 





02542 




TRA 


M8 


02524 





02000 





02531 




TRA 


M9 


02525 





40200 





00006 




SUB 


040A 


02526 


-0 


10000 





02540 




TNZ 


MlO 


02527 





16200 





02536 




TOP 


Mil 


02530 





02000 





02540 




TRA 


MlO 


02531 





16200 





02533 


M9 


TOP 


M12 


02532 


1 


00001 


1 


02540 




TXI 


M10»1»1 


02533 





56000 





00012 


M12 


LDQ 


060A 


02534 


-0 


60000 


1 


00476 




STQ 


UD-2»1 


02535 


1 


00001 


1 


02537 




TXI 


M13»l»l 


02536 





56000 





00012 


Mil 


LDQ 


060A 


02537 


-0 


60000 


1 


00476 


M13 


STQ 


UD-2»1 


02540 


3 


77775 


1 


02570 


M10 


TXH 


M14tl»-3 


02541 


1 


00001 


1 


02553 




TXI 


M15*l»l 


02542 


3 


77776 


2 


02551 


M8 


TXH 


M16*2#-2 


02543 


-0 


50000 


2 


00550 




CAL 


UD+U/2-2»2 


02544 





34000 





00002 




CAS 


9A 


02545 


1 


77773 


4 


00146 


M7 


TXI 


END»4»-5 


02546 





76100 





00000 




NOP 




02547 





60200 


1 


00476 




SLW 


UD-2»1 


02550 


1 


00001 


2 


02540 




TXI 


M10t2tl 


02551 





60000 


1 


00476 


M16 


STZ 


UD-2»1 


02552 





02000 





02540 




TRA 


MlO 


02553 


-o 


50000 


1 


00476 


M15 


CAL 


UD-2#1 


02554 





40200 





00013 




SUB 


067A 


02555 





10000 





02542 




TZE 


M8 


02556 





40000 





00042 




ADD 


12A 


02557 


-0 


10000 





02540 




TNZ 


MlO 


02560 


1 


77777 


1 


02561 




TXI 


M30tl»-1 


02561 





56000 





00012 


M30 


LDQ 


060A 


02562 


-0 


50000 


4 


00003 




CAL 


3*4 


02563 


-0 


32000 





00024 




ANA 


TAG7 


02564 





40200 





00022 




SUB 


TAG1 


02565 


-0 


10000 





02571 




TNZ 


M34 


02566 


-0 


60000 


1 


00475 




STQ 


UD-3»1 


02567 


-0 


60000 





00427 




STQ 


T4 


02570 





56000 





00012 


M14 


LDQ 


O60A 


02571 


-o 


50000 


4 


00003 


M34 


CAL 


3»4 


02572 


-o 


32000 





00024 




ANA 


TAG7 


02573 





34000 





00023 




CAS 


2T 


02574 





02000 





02617 




TRA 


M23 


02575 





56000 





00011 




LDQ 


054A 


02576 


-0 


50000 


1 


00476 


M21 


CAL 


UD-2il 


02577 





10000 





02602 




TZE 


M22 


02600 





40200 





00014 




SUB 


073A 


02601 


-0 


10000 





02605 




TNZ 


M31 


02602 


-0 


60000 


1 


00476 


M22 


STQ 


UD-2»1 


02603 


-3 


00000 


1 


02606D 


M19 


TXL 


M32»l» ( ) 


02604 


1 


77777 


1 


02576 




TXI 


M21»l»-1 


02605 


1 


00001 


1 


02606 


M31 


TXI 


M32»l»l 


02606 


-o 


50000 





00427 


M32 


CAL 


T4 


02607 





10000 





02613 




TZE 


M33 


02610 





56000 





00010 




LDQ 


053A 


02611 


-0 


60000 


1 


00476 




STQ 


UD-2»1 



M(1)=X 
M(1)=R 



M(1)=-»TEST INPUT SIGN 

M(1)=R» TEST INPUT SIGN 
STEP MASK POSITION 
STORE BLANK IN MASK 

STEP MASK POSITION 

STORE BLANK IN MASK 
TEST FOR END OF MASK 
STEP MASK POSITION 
IS FIELD FINISHED 
TEST FOR PURE DIGIT 

ILLEGAL 

PUT DIGIT IN MASK 
STEP FIELD POSITION 
STORE ZERO IN MASK 



IS MASK=X 

IS MASK=$ 

STEP MASK POS. TO THE RIGHT 

SET T=BLANK 

GET FORM PARAMETER 



TEST FOR FLOATING $ 

REPLACE $ BY BLANK 

SET SWITCH ON 

SET T=BLANK 

GET FORM PARAMETER 



F=3» LEADING ZEROS 
F=2» LEADING *» SET T=* 
F=0 OR 1* T=BLANK 
IS MASK POS.=0 

IS MASK POS«=» 

STORE T IN MASK 

IS THIS RIGHT END OF MASK 

STEP MASK POS. TO THE RIGHT 

STEP MASK POS» TO THE LEFT 

TEST SWITCH 

OFF 

INSERT $ 



DPP11512 
DPP11513 
DPP11514 
DPP11515 
DPP11516 
DPP11517 
DPP11518 
DPP11519 
DPP11520 
DPP11521 
DPP11522 
DPP11523 
DPP11524 
DPP11525 
DPP11526 
DPP11527 
DPP11528 
DPP11529 
DPP11530 
DPP11531 
DPP11532 
DPP11533 
DPP11534 
DPP11535 
DPP11536 
DPP11537 
DPP11538 
DPP11539 
DPP11540 
DPP11541 
DPP11542 
DPP11543 
DPP11544 
DPP11545 
DPP 11546 
DPP11547 
DPP11548 
DPP11549 
DPP11550 
DPP11551 
DPP11552 
DPP11553 
DPP11554 
DPP11555 
DPP11556 
DPP11557 
DPP11558 
DPP11559 
DPP11560 
DPP11561 
DPP11562 
DPP11563 
DPP11564 
DPP11565 
DPP11566 
DPP11567 



o 



02612 


1 


00001 


1 


02613 




TXI 


M33»l»l 


02613 


-0 


75400 


1 


00000 


M33 


PXD 


Oil 


02614 





76000 





00006 




COM 




02615 


-0 


32000 





02637 




ANA 


MASK1 


02616 





60200 





00425 




SLW 


T2 


02617 


-0 


50000 


4 


00003 


M23 


CAL 


3*4 


02620 


-0 


73400 


1 


00000 




PDX 


0»1 


02621 


-0 


50000 


4 


00004 




CAL 


4»4 


02622 





07400 


2 


00257 




TSX 


INSt2 


02623 


-0 


50000 


4 


00004 




CAL 


4»4 


02624 


-0 


73400 


1 


00000 




PDX 


0»1 


02625 


-3 


00000 


1 


02627D 




TXL 


M35»l»0 


02626 





40200 





00016 




SUB 


ID 


02627 





36100 





00425 


M35 


ACL 


T2 


02630 


-0 


32000 





02640 




ANA 


MASK2 


02631 





56000 





00426 




LDQ 


T3 


02632 





76300 





00000 




LLS 





02633 





56000 





00424 




LDQ 


Tl 


02634 





16200 





02636 




TQP 


M26 


02635 


1 


77773 


4 


00146 




TXI 


END»4»-5 


02636 


1 


77772 


4 


00146 


M26 


TXI 


END»4»-6 


02637 


+007777000000 


MASK1 


OCT 


0077770Q0000 


02640 


+077777000000 


MASK2 


OCT 


077777000000 










02641 




BSS 




CHECK BCD FIELD 


02641 


-0 


63400 


1 


00421 


CHK 


SXD 


XA»1 


02642 


-0 


63400 


2 


00422 




SXD 


XB»2 


2643 


-0 


50000 


4 


00001 




CAL 


1*4 


02644 





73400 


1 


00000 




PAX 


0*1 


02645 


-o- 


50000 


4 


00002 




CAL 


2»4 


02646 


-0 


73400 


2 


00000 




PDX 


0»2 


02647 


3 


00000 


2 


02651D 




TXH 


CHD1»2 


02650 





36100 





00016 




ACL 


ID 


02651 





60200 





00424 


CHD1 


SLW 


Tl 


02652 


-0 


63400 


1 


00425 




SXD 


T2.1 


02653 


-3 


00124 


1 


02655 




TXL 


CHD2»1»U 


02654 





53400 


1 


00031 




LXA 


UA.l 


02655 





07400 


2 


00220 


CHD2 


TSX 


XTFU2 


02656 





62100 





02657 




STA 


CHD3 


02657 





50000 


1 


00000 


CH03 


CLA 


O.l 


02660 





73400 


2 


00000 




PAX 


0.2 


02661 





50000 


2 


00145 




CLA 


BCD*2 


02662 





12000 





02671 




TPL 


CHD4 


2663 


2 


00001 


1 


02657 




TIX 


CHD3»1»1 


02664 


-0 


53400 


1 


00425 




LXD 


T2»l 


02665 


-3 


00124 


1 


02672 




TXL 


CHD5»1»U 


2666 


-0 


50000 





00424 




CAL 


Tl 


02667 





36100 





00033 




ACL 


UDEC 


02670 


1 


77654 


1 


02651 




TXI 


CHDlt 1»-U 


02671 


1 


77775 


4 


00146 


CHD4 


TXI 


END»4»-3 


02672 


1 


77774 


4 


00146 
00000 


CH05 


TXI 

END 


END»4»-4 



STEP MASK POS. TO THE LEFT 



AVOID SIZE-OF-MACHINE TROUBLE 
SAVE MASK POS.=K 
INSERT MODIFIED FIELD 



IF S=0» SET S=l 

FORM S+K-l IN DECREMENT 

CLEAR REST OF AC 

SET AC SIGN TO INPUT SIGN 



MOD OR MAC 
(1) - MAC 
(0)- MOD 



CHECK PACKED BCD COMPONENT 



SAVE IR 

GET N 

SET IR-1»N 

GET (A»T»R) 

IF R=0, SUBSTITUTE 

R=l 

SAVE (AtT»R) 

SAVE N 

IF N IS G.T.U» 

SET N = U 

EXTRACT 

SET (UD+N) 

CHECK 

EACH 

CHARACTER 



IF N IS G.T. U» WE 
ARE NOT DONE 
FORM (AtT»R+U) 

REDUCE N BY U 
ILLEGAL RETURN 
LEGAL RETURN 



DPP11568 
DPP11569 
DPP11570 
DPP11571 
DPP11572 
DPP11573 
DPP11574 
DPP11575 
DPP11576 
DPP11577 
DPP11578 
DPP11579 
DPP11580 
DPP11581 
DPP11582 
DPP11583 
DPP11584 
DPP11585 
DPP11586 
DPP11587 
DPP11588 
DPP11589 
DPP11590 
DPP11591 
DPP11592 
DPP11593 
DPP11594 
DPP11595 
DPP11596 
DPP11597 
DPP11598 
DPP11599 
DPP11600 
DPP11601 
DPP11602 
DPP11603 
DPP11604 
DPP11605 
DPP11606 
DPP11607 
DPP11608 
DPP11609 
DPP11610 
DPP11611 
DPP11612 
DPP11613 
DPP11614 
DPP11615 
DPP11616 
DPP11617 
DPP11618 
DPP11619 
DPP11620 
DPP11621 





REM 


DATA PROCESSI 


DTB 


HTR 


DTB 


BTO 


htr 


BTD 


RCD 


HTR 


RCD 


WPU 


HTR 


WPU 


WPR 


htr 


WPR 


RTD 


HTR 


RTD 


WTD 


HTR 


WTD 


RTB 


HTR 


RTB 


WTB 


HTR 


WTB 


MOV 


HTR 


MOV 


XIN 


HTR 


XIN 


COM 


htr 


COM 


BPB 


htr 


BPB 


ZAC 


htr 


ZAC 


CLA 


htr 


CLA 


CLS 


htr 


CLS 


ADD 


htr 


ADD 


SUB 


htr 


SUB 


MPY 


htr 


MPY 


DIV 


htr 


DIV 


STO 


HTR 


STO 


STS 


HTR 


STS 


ARS 


HTR 


ARS 


SRD 


htr 


SRD 


ALS 


htr 


ALS 


TZE 


htr 


TZE 


TNZ 


HTR 


TNZ 


TPL 


HTR 


TPL 


TMI 


htr 


TMI 


TOV 


HTR 


TOV 


TNO 


htr 


TNO 


CAF 


htr 


CAF 


ILZ 


htr 


ILZ 


MOD 


htr 


MOD 


MAC 


htr 


MAC 


CHK 


htr 


CHK 




BSS 


271 


DPPL 


REW 


1 




SXD 


DPPL+104»1 




SXD 


DPPL+99»2 




SXD 


DPPL+107»4 




LXA 


DPPL+13»1 




TXL 


DPPL+11#1»0 




RTB 


1 




CPY 


DPPL+131 




TRA 


DPPL+6 




TXI 


DPPL+5#1»»1 




TRA 


DPPL+6 




RTB 


1 




CAL 


2t4 




PAX 


Itl 




txh 


DPPL+114»1»13 




SXD 


DPPL+91 »1 




SXD 


DPPL+36»4 




|_XD 


DPPL+121»2 



TRANSFER TABLE 



SAVE INDEX REGISTERS 
POSITION LIBRARY TAPE 

NORMAL 

END OF FILE 

END OF RECORD 

GET FIRST DELETION FROM ADDRESS 
ERROR EXIT IF DELETION IS TOO HIGH 



DPPLOOOO 
DPPLOOOl 
DPPL0002 
DPPL0003 
DPPL0004 
DPPL0005 
DPPL0006 
DPPL0O07 
DPPL0008 
DPPL0009 
DPPLOOIO 
DPPLOOll 
DPPL0012 
DPPL0013 
DPPL0014 
DPPL0015 
DPPL0016 
DPPL0017 
DPPL0018 
DPPL0019 
DPPL0O20 
DPPL0021 
DPPL0022 
DPPL0023 
DPPL0024 
DPPL0025 
DPPL0026 
DPPL0027 
DPPL0028 
DPPL0029 
DPPL0030 
DPPL0031 
DPPL0032 
DPPL0033 
DPPL0034 
DPPL0035 
DPPL0036 
DPPL0037 
DPPL0038 
DPPL0039 
DPPL0040 
DPPL0041 
DPPL0042 
DPPL0043 
DPPL0044 
DPPL0045 
DPPL0046 
DPPL0047 
DPPL0048 
DPPL0049 
DPPL0050 
DPPL0O51 
DPPL0052 
DPPL0053 
DPPL0054 
DPPL0055 



-0 



LXD DPPL+91»1 

PXD 0#1 

SUB DPPL+124 

TNZ DPPL+23 

LXD DPPL+64»2 

LXD DPPL+122»1 

SXD DPPL+77#1 

PXD 0»0 

CAD DPPL+131 

SLW DPPL+132 

ACL DPPL+127»2 

STA DPPL+65 

TXL DPPL+37»2»1 

ACL DPPL+128 

STD DPPL+78 

PDX 0*1 

TXL DPPL+37*1.DTB+SIZE 

CLA DPPL+122 

TXL DPPL+115 

LXA DPPL+131«4 

CAL DPPL+132 

CAD DPPL+131 

SLW DPPL+132 

CAL DPPL+131 

ACL DPPL+86 

STA DPPL+51 

LXD DPPL+131»1 

CAL DPPL+132 

CAD DPPL+131 

SLW DPPL+132 

CAL DPPL+131 

ACL DPPL+127»2 

TXL DPPL+52»2»0 

SLW 0#1 

TIX DPPL+45»1»1 

SXD DPPL+76t2 

CAL DPPL+132 

CAD DPPL+131 

LXA DPPL+131»1 

LXD DPPL+I3l»2 

CAD DPPL+131 

SLW DPPL+132 

CAL DPPL+131 

ACL DPPL+127tl 

ACL DPPL+130«2 

LXD DPPL+76»2 

TXL DPPL+66»2»0 

SLW 0»4 

TIX DPPL+54»4>1 

CPY DPPL+131 

CLA DPPL+132 

SUB DPPL+131 

TZE DPPL+79»2 

BST 1 

RTB 1 

LXD DPPL+77^1 



SHOULD WE DELETE THIS COMPONENT 



NO 

YES 

READ TAPE RECORD ROUTINE 

INDEX 2 CONTROLS FUNCTION 

INDEX 2=0» DELETE COMPONENT 

INDEX 2=1» UNIVERSAL COMPONENT 

INDEX 2=2* REGULAR COMPONENT 

SET UP STORING ADDRESS 
SKIP IF NOT A REGULAR COMP 
TEST WHETHER LOADING THIS COMP 
WILL CAUSE US TO EXCEED SIZE 



SIZE IS TOO SMALL* 

GO TO ERROR EXIT 

Wl ADR HAS NO LOCS LOADED FOR COMP 

Wl DEC HAS NO LOCS USED BY THIS COMP 

COPY W2 

W2 ADR HAS NO LAST SUB IN COMP 
W2 DEC HAS NO. SUBS IN THIS COMP 



COPY SUBROUTINE WORD 

SUBROUTINE WORD ADDRESS HAS ORIGIN 
OF SUBROUTINE RELATIVE TO ORIGIN 
OF COMPONENT 



COPY RELOCATOR WORD 
RW HAS REL BITS FOR ADR 
REL BITS FOR DEC IN DEC 
COPY INSTRUCTION WORD 



IN ADR 



RELOCATE ADDRESS AND DECREMENT OF 
INSTRUCTION WORD 



CHECK CHECKSUM 



DPPL0056 
DPPL0057 
DPPL0058 
DPPL0059 
DPPL0060 
DPPL0061 
DPPL0062 
DPPL0063 
DPPL0064 
DPPL0065 
DPPL0066 
DPPL0067 
DPPL0068 
DPPL0069 
DPPL0070 
DPPL0071 
DPPL0072 
DPPL0073 
DPPL0074 
DPPL0075 
DPPL0076 
DPPL0077 
DPPL0078 
DPPL0079 
DPPL0080 
DPPL0081 
DPPL0082 
DPPL0083 
DPPL0084 
DPPL0O85 
DPPL0086 
DPPL0087 
DPPL0088 
DPPL0089 
DPPL0090 
DPPL0091 
DPPL0092 
DPPL0093 
DPPL0094 
DPPL0095 
DPPL0096 
DPPL0097 
DPPL0098 
DPPL0099 
DPPL0100 
DPPL0101 
DPPL0102 
DPPL0103 
DPPL0104 
DPPL0105 
DPPL0106 
DPPL0107 
DPPL0108 
DPPL0109 
DPPL0110 
DPPL0111 






TIX 


DPPL+24»1»1 


CLA 


DPPL+120 


TXL 


DPPL+115 


TXL 


DPPL+100 


TXL 


DPPL+108 


lxd 


DPPL+36»4 


100 




LDO 


DPPL+123 


CLA 


2t4 


TOP 


DPPL+86 


ARS 


18 


TXI 


DPPL+86»4»-l 


PAX 


DTB#1 


RGL 


1 


STQ 


DPPL+123 


SXO 


DPPL+36t4 


TXL 


DPPL+93»1»0 


TXL 


DPPL+114»1#0 


TXH 


DPPL+114»lil3 


SXD 


DPPL+91»1 


LXD 


DPPL+124»1 


TXI 


DPPL+96.1»1 


TXH 


DPPL+105»1»13 


SXD 


DPPL+124#1 


RTB 


1 


TXL 


DPPL+17 


CAL 


DPPL+78 


STD 


DPPL+128 


ARS 


18 


STA 


DPPL+125 


TXL 


DPPL+94 


RTB 


1 


LXD 


DPPL+120»2 


TXL 


DPPL+23 


LXD 


DPPL+36»4 


IOD 




LDO 


DPPL+123 


TOP 


DPPL+113 


TXI 


DPPL+116»4.-2 


TXI 


DPPL+116»4*-1 


CLA 


DPPL+121 


LXD 


DPPL+107»4 


LXD 


DPPL+104»1 


LXD 


DPPL+99»2 


REW 


1 


TRA 


1»4 




0»0»1 




0*0,2 




0t0#3 


OCT 


525252525252 




0»0»1 


PZE 


DPPL+133 


PZE 


CHK + 1 


PZE 




PZE 


0»0»DPPL+133 


PZE 


0#OtCHK+l 


PZE 




BSS 


DTB+SIZE-DPPL- 



GET NEXT DELETION NO AND TEST IT 



HAVE WE READ ALL COMPONENTS 
N0# GO TO NEXT COMPONENT 



INCREASE ORIGINS FOR REG COMPS 
BY NO LOCS USED BY LAST COMP 



READ UNIVERSAL COMPONENT 



NORMAL RETURN 



ERROR RETURN 



CONSTANTS 



DPPL0112 
DPPL0113 
DPPL0114 
DPPL0115 
DPPL0116 
DPPL0117 
DPPL0118 
DPPL0U9 
DPPL0120 
DPPL0121 
DPPL0122 
DPPL0123 
DPPL0124 
DPPL0125 
DPPL0126 
DPPL0127 
DPPL0128 
DPPL0129 
DPPL0130 
DPPL0131 
DPPL0132 
DPPL0133 
DPPL0134 
DPPL0135 
DPPL0136 
DPPL0137 
DPPL0138 
DPPL0139 
DPPL0140 
DPPL0141 
DPPL0142 
DPPL0143 
DPPL0144 
DPPL0145 
DPPL0146 
DPPL0147 
DPPL0148 
DPPL0149 
DPPL0150 
DPPL0151 
DPPL0152 
DPPL0153 
DPPL0154 
DPPL0155 
DPPL0156 
DPPL0157 
DPPL0158 
DPPL0159 
DPPL0160 
DPPL0161 
DPPL0162 
DPPL0163 
DPPL0164 
DPPL0165 
DPPL0166 
DPPL0167 
DPPL0168 
DPPL0169 



^J 

►^ 











02000 




ORG 


1024 
PROGRAM TO 


WRITE 










00000 


i ) 


EQU 















00007 


LIB 


EQU 


7 




02000 





76200 





00321 


WDP1 


RCD 






02001 





70000 





04577 




CPY 


LF 




02002 





70000 





04571 




CPY 


E 




02003 


-0 


50000 





04571 




CAL 


E 




02004 





36100 





02337 




ACL 


0220A 




02005 





62100 





02015 




STA 


PI 




02006 





62100 





02020 




STA 


S22 




02007 





62100 





02236 




STA 


516 




02010 





62100 





02273 




STA 


P2 




02011 





62100 





02274 




STA 


P3 




02012 





62100 





02327 




STA 


S2 




02013 





62100 





02330 




STA 


P4 




02014 





62100 





02316 




STA 


ERR 




02015 





77200 





00207 


PI 


REW 


LIB 




02016 





53400 


1 


04577 




LXA 


LF*1 




02017 


-3 


00000 


1 


02026D 


P6 


TXL 


P5il»0 




02020 





76200 





00227 


S22 


RTB 


LIB 




02021 





70000 





04571 




CPY 


E 




02022 





02000 





02020 




TRA 


S22 




02023 





02000 





02025 




TRA 


S23 




02024 





02000 





02020 




TRA 


S22 




02025 


1 


77777 


1 


02017 


523 


TXI 


P6il»-1 




02026 


-0 


53400 


1 


02332 


P5 


LXD 


ZEROtl 




02027 





76200 





00321 


S63 


RCD 






02030 


-0 


75400 





00000T 




PXD 


0»0 




02031 


-0 


70000 





04555 




CAD 


9L 




02032 





10000 





02052 




TZE 


562 




02033 





63000 





04576 




STP 


TEST 




02034 





70000 





04556 




CPY 


9R 




02035 


-0 


70000 





04571 




CAD 


E 




02036 


-0 


70000 





04571 




CAD 


E 




02037 


-0 


53400 


2 


04555 




LXD 


9L»2 




02040 


-0 


70000 


1 


02447 


561 


CAD 


TAB-1»1 




02041 


1 


00001 


1 


02042 




TXI 


S60»l»l 




02042 


2 


00001 


2 


02040 


560 


TIX 


S61»2»l 




02043 





60200 





04561 




SLW 


CKS 




02044 





50000 





04576 




CLA 


TEST 




02045 





10000 





02027 




TZE 


S63 




02046 





50000 





04561 




CLA 


CKS 




02047 





40200 





04556 




SUB 


9R 




02050 





10000 





02027 




TZE 


S63 




02051 





00000 





00000 




HTR 






02052 


1 


77776 


1 


02053 


562 


TXI 


S62A.1.*2 




02053 


-0 


63400 


1 


02076 


562A 


SXD 


S66tl 




02054 





50000 





02447 




CLA 


TAB-1 




02055 





62100 





02473 




STA 


CTAB1-1 




02056 





60000 





02602 




STZ 


NSC 




02057 





60000 





02603 




STZ 


NS 




02060 


-0 


53400 


7 


02332 




LXD 


ZER0»7 




02061 





50000 


4 


02446 


567 


CLA 


TAB-2»4 




02062 


-0 


12000 





02100 




TMI 


S64 




02063 





40200 


2 


02473 




SUB 


CTAB1-1»2 





DATA PROCESSING PACKAGE ON LIBRARY TAPE 



READ 

NUMBER OF FILES 

TAPE ADDRESS 



STORE TAPE ADDRESSES 



POSITION LIBRARY TAPE 



NORMAL 

END OF FILE 
END OF RECORD 



READ CONTROL CARDS INTO TAB REGION 



EXIT ON A BLANK CARD 



DO NOT CHECK CHECKSUM 
IF 9L PREFIX IS ZERO 



CHECKSUM STOP FOR CONTROL CARD 

S66 GETS NO. OF ENTRIES IN TAB MINUS 2 

STORE ORIGIN OF FIRST COMPONENT 

SET NS» NSC TO ZERO 



PICK UP TAB ENTRY 

NEGATIVE ENTRY REPRESENTS A COMPONENT 

GET ORIGIN OF SUBROUTINE RELATIVE 



WDP10000 
WDP10001 
WDP10002 
WDP10003 
WDP10004 
WDP10005 
WDP10006 
WDP10007 
WDP10008 
WDP10009 
WDP10010 
WDP10011 
WDP10012 
WDP10013 
WDP10014 
WDP10015 
WDP10016 
WDP10017 
WDP10018 
WDP10019 
WDP10020 
WDP10021 
WDP10022 
WDP10023 
WDP10024 
WDP10025 
WDP10026 
WDP10027 
WDP10028 
WDP10029 
WDP10030 
WDP10031 
WDP10032 
WDP10033 
WDP10034 
WDP10035 
WDP10036 
WDP10037 
WDP10038 
WDP10039 
WDP10040 
WDP10041 
WDP10042 
WDP10043 
WDP10044 
WDP10045 
WDP10046 
WDP10047 
WDP10048 
WDP10049 
WDP10050 
WDP10051 
WDP10052 
WDP10053 
WDP10054 
WDP10055 






02064 


-0 


50100 





02341 




ORA 


TRA 


02065 





60200 


1 


02520 




SLW 


STAB»1 


02066 





50000 





02603 




CLA 


NS 


02067 





40000 





02333 




ADD 


1A 


02070 





60100 





02603 




STO 


NS 


02071 





50000 





02602 




CLA 


NSC 


02072 





40000 





02334 




ADD 


ID 


02073 





60100 





02602 




STO 


NSC 


02074 


1 


77777 


1 


02075 




TXI 


S65»l»-1 


02075 


1 


00001 


4 


02076 


S65 


TXI 


S66»4»l 


02076 


-3 


00000 


4 


02061D 


S66 


TXL 


S67»4»( ) 


02077 


1 


77777 


2 


02113 




TXI 


S68»2»-l 


02100 





62100 


2 


02472 


S64 


STA 


CTABl-2*2 


02101 





76000 





00003 




SSP 




02102 





40200 


2 


02473 




SUB 


CTAB1-1»2 


02103 





76700 





00022 




ALS 


18 


02104 





62200 


2 


02473 




STD 


CTAB1-1#2 


02105 





50000 





02602 




CLA 


NSC 


02106 





62200 


2 


02517 




STD 


CTAB2-1«2 


02107 





50000 





02603 




CLA 


NS 


02110 





62100 


2 


02517 




STA 


CTAB2-1#2 


02111 





60000 





02602 




STZ 


NSC 


02112 


1 


00001 


2 


02075 




TXI 


S65.2*l 


02113 


-0 


63400 


2 


02324 


S68 


SXD 


S76»2 


02114 


-0 


53400 


2 


02334 




LXD 


1D»2 


02115 


-0 


63400 


2 


04575 


S15 


SXD 


C0MPN»2 


02116 


-0 


50000 


2 


02473 




CAL 


CTAB1-1»2 


02117 





40200 





02333 




SUB 


1A 


02120 





76700 





00022 




ALS 


18 


C2121 





62200 





02171 




STD 


S5 


C2122 





62200 





02200 




STD 


S6 


02123 





60000 





04562 




STZ 


LOC 


02124 





76200 





00321 


SI 


RCD 




02125 


-0 


75400 





00000T 




PXD 


0*0 


02126 


-0 


70000 





04555 




CAD 


9L 


02127 





10000 





02235 




TZE 


S3 


02130 


-0 


53400 


4 


04555 




LXD 


9L»4 


02131 





70000 





04556 




CPY 


9R 


02132 


-0 


70000 





04557 




CAD 


Rl 


02133 


-0 


70000 





04560 




CAD 


R2 


02134 





60200 





04561 




SLW 


CKS 


02135 


-0 


63400 


4 


04563 


S4 


SXD 


N»4 


02136 


-0 


50000 





04561 




CAL 


CKS 


02137 


-0 


70000 





04564 




CAD 


I 


02140 


-0 


70000 





04572 




CAD 


IR 


02141 





60200 





04561 




SLW 


CKS 


02142 


-0 


53400 


2 


02334 




LXD 


1Di2 


02143 


-0 


63400 


2 


04573 


DET 


SXD 


TRACK»2 


02144 





56000 





04560 




LDQ 


R2 


02145 


-0 


50000 





04557 




CAL 


Rl 


02146 


-0 


53400 


3 


02332 




LXD 


ZER0»3 


02147 


-0 


76000 





00001 




PBT 




02150 


1 


00000 


1 


02155D 




TXI 


A»1»0 


2151 


-0 


76300 





00001 




LGL 


1 


02152 


-0 


76000 





00001 




PBT 




02153 


1 


00001 


1 


02155 




TXI 


A»l»l 



TO COMPONENT 

STEP NO. OF SUBROUTINES 

STEP NO, OF SUBROUTINES IN THIS COMP 



HAVE FINISHED LAST ENTRY IN TAB 
YES* GO TO READ PROGRAM CARDS 
TAB ENTRY REPRESENTS A COMPONENT 



CTAB1 DEC GETS NO* LOCS. USED BY COMP 
CTAB2 DEC GETS NO* SUBS IN THIS COMP 

CTAB2 ADR GETS NO. LAST SUB IN THIS COMP 

RESET NSC 

S76 GETS NO. COMPS MINUS ONE 
SET COMPONENT NUMBER TO ONE 
START NEW COMPONENT 
SET UP DECS TO ORIGIN OF COMP - 1 



CLEAR LOC 

READ PROGRAM CARDS 



TEST FOR END OF COMPONENT 



COPY TWO INSTRUCTIONS AT A TIME 



DETERMINE THE RELOCATABI L I TY 
OF DECREMENTS* ADDRESSES 



DECREMENT ABSOLUTE 
1 

DECREMENT RELOC. DIRECT 



WDP10056 
WDP10057 
WDP10058 
WDP10059 
WDP10060 
WDP10061 
WDP10062 
WDP10063 
WDP10064 
WDP10065 
WDP10066 
WDP10067 
WDP10068 
WDP10069 
WDP10070 
WDP10071 
WDP10072 
WDP10073 
WD P 10074 
WDP10075 
WDP10076 
WDP10077 
WDP10078 
WDP10079 
WDP10080 
WDP10081 
WDP10082 
WDP10083 
WDP10084 
WDP10085 
WDP10086 
WDP10087 
WDP10088 
WDP10089 
WDP10090 
WDP10091 
WDP10092 
WDP10093 
WDP10094 
WDP10095 
WDP10096 
WDP10097 
WDP10098 
WDP10099 
WDP10100 
WDP10101 
WDP10102 
WDP10103 
WDP10104 
WDP10105 
WDP10106 
WDP10107 
WDP10108 
WDP10109 
WDP10110 
WDP10111 



-J 



02154 





00000 





00000 




HTR 






02155 


-0 


76300 





00001 


A 


LGL 


1 




02156 


-0 


76000 





00001 




PBT 






02157 


1 


00000 


2 


02164D 




TXI 


B»2»0 




02160 


-0 


76300 





00001 




LGL 


1 




02161 


-0 


76000 





00001 




PBT 






02162 


1 


00001 


2 


02164 




TXI 


B»2»l 




02163 





00000 





00000 




HTR 






02164 


-0 


76300 





00001 


B 


LGL 


1 




02165 





60200 





04557 




SLW 


Rl 




02166 


-0 


60000 





04560 




STQ 


R2 




02167 


-3 


00000 


1 


02175D 




TXL 


STl»li 





02170 


-0 


53400 


4 


04564 




LXD 


I»4 




02171 


-2 


00000 


4 


02175D 


S5 


TNX 


STl»4i 


() 


02172 


1 


77777 


4 


02173 




TXI 


XI. 4»" 


■1 


02173 


-0 


63400 


4 


04564 


XI 


SXO 


I»4 




02174 


1 


00001 


1 


02175 




TXI 


STltli 


1 


02175 


-0 


63400 


1 


04565 


ST1 


SXD 


Rtl 




02176 


-3 


00000 


2 


02206D 




TXL 


ST2»2« 


»0 


02177 





53400 


4 


04564 




LXA 


I»4 




02200 


-2 


00000 


4 


02206D 


S6 


TNX 


ST2»4i 


( ) 


02201 


1 


77777 


4 


02202 




TXI 


X2»4»- 


•1 


02202 


-0 


75400 


4 


00000 


X2 


PXO 


0»4 




02203 





77100 





00022 




ARS 


18 




02204 





62100 





04564 




STA 


I 




02205 


1 


00001 


2 


02206 




TXI 


ST2»2i 


► 1 


02206 


-0 


75400 


2 


00000 


ST2 


PXD 


0»2 




02207 





77100 





00022 




ARS 


18 




02210 





62100 





04565 




STA 


R 




02211 


-0 


53400 


4 


04562 




LXD 


LOO 4 




02212 





50000 





04564 




CLA 


I 




02213 





60100 


4 


02605 


S7 


STO 


C+1.4 




02214 





50000 





04565 




CLA 


R 




02215 





60100 


4 


02604 


S8 


STO 


C»4 




02216 


1 


77776 


4 


02217 




TXI 


S10»4 


»-2 


02217 


-0 


63400 


4 


04562 


S10 


SXD 


LOO 4 




02220 


-0 


53400 


4 


04563 




LXD 


N»4 




02221 


-2 


00001 


4 


02231 




TNX 


CHECK 


>4»1 


02222 


-0 


63400 


4 


04563 




SXD 


N»4 




02223 


-0 


53400 


2 


04573 




LXD 


TRACKi 


► 2 


-2224 





50000 





04572 




CLA 


IR 




02225 





60100 





04564 




STO 


I 




02226 


1 


00001 


2 


02227 




TXI 


S52»2 


► 1 


02227 


-3 


00002 


2 


02143 


552 


TXL 


DET»2 


► 2 


02230 





02000 





02135 




TRA 


S4 




02231 





50000 





04556 


CHECK 


CLA 


9R 




02232 





40200 





04561 




SUB 


CKS 




02233 





10000 





02124 




TZE 


SI 




02234 





00000 





00000 




HTR 






02235 


-0 


53400 


1 


02336 


S3 


LXD 


3D.1 




02236 





76600 





00227 


S16 


WTB 


LIB 




02237 


-0 


53400 


2 


04575 




LXD 


COMPN 


► 2 


02240 





50000 


2 


02473 




CLA 


CTAB1- 


•1*2 


02241 





62200 





04570 




STD 


CW 




02242 





50000 


2 


02517 




CLA 


CTAB2-1.2 


02243 





60100 





04554 




STO 


CW2 





DECREMENT RELOO COMPL.t STOP 



ADDRESS ABSOLUTE 

1 

ADDRESS RELOO DIRECT 

1 ADDRESS RELOO COMPL.t STOP 



JUMP IF DEC IS ABSOLUTE 
JUMP IF DEC OF I IS LOW 

JUMP IF ADR IS ABSOLUTE 
JUMP IF ADR OF I IS LOW 



I HAS THE MODIFIED INSTRUCTION 
R HAS THE RELOCATOR BITS FOR I 



FINISHED ALL WORDS ON CARD 
NO 



FINISHED RIGHT HALF WORD 

YES* GO TO COPY TWO MORE WORDS 

CHECK CHECHSUM 



CHECKSUM STOP FOR PROGRAM CARD 
WRITE OUT COMPONENT ON LIBRARY TAPE 



CW DEC GETS NO« WORDS USED BY COMP 



WDP10112 
WDP10113 
WDP10114 
WDP10115 
WDP10116 
WDP10117 
WDP10118 
WDP10119 
WDP10120 
WDP10121 
WDP10122 
WDP10123 
WDP10124 
WDP10125 
WDP10126 
WDP10127 
WDP10128 
WDP10129 
WDP10130 
WDP10131 
WDP10132 
WDP10133 
WDP10134 
WDP10135 
WDP10136 
WDP10137 
WDP10138 
WDP10139 
WDP10140 
WDP10141 
WDP10142 
WDP10143 
WDP10144 
WDP10145 
WDP10146 
WDP10147 
WDP10148 
WDP10149 
WDP10150 
WDP10151 
WDP10152 
WDP10153 
WDP10154 
WDP10155 
WDP10156 
WDP10157 
WDP10158 
WDP10159 
WDP10160 
WDP 10161 
WDP10162 
WDP10163 
WDP10164 
WDP10165 
WDP10166 
WDP10167 



-J 



02244 


-0 


50000 





04562 




CAL 


LOC 


02245 





62200 





02270 




STD 


S12 


02246 





76000 





00006 




COM 




02247 


-0 


73400 


4 


00000 




PDX 


0#4 


02250 


-0 


75400 


4 


00000 




PXO 


0»4 


02251 





36100 





02334 




ACL 


ID 


02252 





77100 





00023 




ARS 


19 


02253 





62100 





04570 




STA 


cw 


02254 


-0 


50000 





04554 




CAL 


CW2 


02255 





36100 





02340 




ACL 


LSTAB 


02256 





62100 





02263 




STA 


S21 


02257 


-0 


53400 


2 


04554 




LXD 


CW2*2 


02260 


-0 


75400 





0OO0OT 




PXD 


0*0 


02261 


-0 


70000 





04570 




CAD 


CW 


02262 


-0 


70000 





04554 




CAD 


CW2 


02263 


-0 


70000 


2 


00000 


S21 


CAD 


()#2 


02264 


2 


00001 


2 


02263 




TIX 


S2lt2tl 


02265 


-0 


53400 


4 


02332 




LXD 


ZER0»4 


02266 


-0 


70000 


4 


02604 


S13 


CAD 


C»4 


02267 


1 


77777 


4 


02270 




TXI 


S12»4»-l 


02270 


3 


00000 


4 


02266D 


S12 


TXH 


S13»4f ( ) 


02271 





60200 





04566 




SLW 


CS 


02272 





70000 





04566 




CPY 


CS 


02273 





76400 





00207 


P2 


BST 


LIB 


02274 





76200 





00227 


P3 


RTB 


LIB 


02275 


-0 


75400 





OOOOOT 




PXD 


0*0 


02276 


-0 


70000 





04567 


S14 


CAD 


DUMP 


02277 





02000 





02276 




TRA 


S14 


02300 





02000 





02316 




TRA 


ERR 


02301 





6Q200 





04574 




SLW 


CSC 


02302 


-0 


50000 





04567 




CAL 


DUMP 


02303 





36100 





04567 




ACL 


DUMP 


02304 





60200 





04567 




SLW 


DUMP 


C2305 





50000 





04567 




CLA 


DUMP 


02306 





40200 





04574 




SUB 


CSC 


02307 


-0 


10000 





02316 




TN2 


ERR 


02310 


-0 


50000 





04566 




CAL 


CS 


02311 





36100 





04566 




ACL 


CS 


02312 





60200 





04566 




SLW 


CS 


02313 





50000 





04566 




CLA 


CS 


02314 





40200 





04574 




SUB 


CSC 


02315 





10000 





02321 




TIE 


S75 


02316 





76400 





00207 


ERR 


BST 


LIB 


02317 


2 


00001 


1 


02236 




TIX 


S16»l»l 


02320 





00000 





02235 




HTR 


S3 


02321 


-0 


53400 


2 


04575 


S75 


LXD 


C0MPN»2 


02322 


-3 


00000 


2 


02327D 




TXL 


S2#2tO 


02323 


1 


00001 


2 


02324 




TXI 


S76»2«l 


02324 


-3 


00000 


2 


02115D 


S76 


TXL 


S15»2*( ) 


02325 


-0 


53400 


2 


02332 




LXD 


ZER0»2 


02326 





02000 





02115 




TRA 


S15 


02327 





77000 





00207 


S2 


WEF 


LIB 


02330 





77200 





00207 


P4 


REW 


LIB 


02331 





00000 





00000 




HTR 


CONSTANTS 



AVOID SIZE-OF-MACHINE TROUBLE 
AND CLEAR REST OF AC 



CW ADR GETS N0« WORDS LOADED FOR COMP 



BACKSPACE* READ BACK* CHECK CHECKSUM 



FALSE END OF FILE 
END OF RECORD 



THREE TAPE ERRORS IN A ROW 

EXIT AFTER UNIVERSAL COMPONENT 

STEP COMPONENT NUMBER AND 

TEST FOR LAST COMPONENT 

GO BACK TO WRITE THE UNIVERSAL COMP 



FINAL STOP 



02332 00000 00000 ZERO 



WDP10168 
WDP10169 
WDP10170 
WDP10171 
WDP10172 
WDP10173 
WDP10174 
WDP10175 
WDP10176 
WDP10177 
WDP10178 
WDP10179 
WDP10180 
WDP10181 
WDP10182 
WDP10183 
WDP10184 
WDP10185 
WDP10186 
WDP10187 
WDP10188 
WDP10189 
WDP10190 
WDP10191 
WDP10192 
WDP10193 
WDP10194 
WDP10195 
WDP10196 
WDP10197 
WDP10198 
WDP10199 
WDP10200 
WDP10201 
WDP10202 
WDP10203 
WDP10204 
WDP10205 
WDP10206 
WDP10207 
WDP10208 
WDP10209 
WDP10210 
WDP10211 
WDP10212 
WDP10213 
WDP10214 
WDP10215 
WDP10216 
WDP10217 
WDP10218 
WDP10219 
WDP10220 
WDP10221 
WDP10222 
WDP10223 



00 



02333 00000 00001 

02334 00001 00000 

02335 00002 00000 

02336 00003 00000 

02337 +000000000220 

02340 00000 02520 

02341 02000 00000 

02450 
02474 
02520 
02520 
02602 
02603 
02604 
04554 
04555 
04556 
04557 
04560 
04561 
04562 
04563 
04564 
04565 
04566 
04567 
04570 
04571 
04572 
04573 
04574 
04575 
04576 
04577 

ooooo 



1A 
ID 
2D 
3D 



1 

o»o»i 

0»0»2 

0»0»3 



O220A OCT 220 
LSTAB STAB 
TRA TRA 

ERASEABLE 
TAB BES 70 
CTAB1 BES 20 
CTAB2 BES 20 
STAB BSS 50 



NSC 

NS 

C 

CW2 

9L 

9R 

Rl 

R2 

CKS 

LOC 

N 

I 

R 

CS 

DUMP 

CW 

E 

IR 



BSS 1 
BSS 1 
BSS 1000 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 



BSS 
BSS 
BSS 
BSS 



TRACK BSS 
CSC BSS 1 
COMPN BSS 1 
TEST BSS 1 
LF BSS 1 
END 



WDP10224 
WDP10225 
WDP10226 
WDP10227 
WDP10228 
WDP10229 
WDP10230 
WDP10231 
WDP10232 
WDP10233 
WDP10234 
WDP10235 
WDP10236 
WDP10237 
WDP10238 
WDP10239 
WDP10240 
WDP10241 
WDP10242 
WDP10243 
WDP10244 
WDP10245 
WDP10246 
WDP10247 
WDP10248 
WDP10249 
WDP10250 
WDP10251 
WDP10252 
WDP10253 
WDP10254 
WDP10255 
WDP10256 
WDP10257 
WDP10258 
WDP10259 



APPENDIX 



OCTAL - CORE STORAGE BCD 



For Use With DPP1 



>v Zone 


















Num.\ 


No 


Zone 




Y 




X 







No Num. 
1 


60 
01 


Blank 
1 


20 
21 


+ 
A( + l) 


40 
41 


J(-D 




61 


/ 


2 


02 


2 


22 


B(+2) 


42 


K(-2) 


62 


S 


3 


03 


3 


23 


C(+3) 


43 


L(-3) 


63 


T 


4 


04 


4 


24 


D(+4) 


44 


M(-4) 


64 


U 


5 


05 


5 


25 


E(+5) 


45 


N(-5) 


65 


V 


6 


06 


6 


26 


F(+6) 


46 


0(-6) 


66 


W 


7 


07 


7 


27 


G(+7) 


47 


P(-7) 


67 


X 


8 


10 


8 


30 


H(+8) 


50 


Q(-8) 


70 


Y 


9 


8-3 


11 
00 
12 
13 


9 

Illegal 


31 
32 


I (+9) 
+0 


51 
52 


R(-9) 
-0 


71 


Z 


^I^r=~ <m^ 






72 + 
73 


(Illegal) 

5 


33 


. 


53 


$ 


8-4 


14@(Illegal) 


34 


) 


54 




74 


( 




15 


Illegal 


35 


Illegal 


55 


Illegal 


75 


Illegal 




16 


Illegal 


36 


Illegal 


56 


Illegal 


76 


Illegal 




17 


Illegal 


37 


Illegal 


57 


Illegal 


77 


Illegal 



+ 



NOTE: The characters (32) and (52) cannot be printed. Moreover, 
removing the zone bits of or o will not yield an unsigned zero. 



79 



READ CARD 


PUNCH 


PRINT 


This page is intended to be 


a TSX RCD, 4 


a TSX WPU, 4 


a TSX WPR, 4 




a + 1 A, t 


a + 1 A, t, W 


a + 1 A, t, W 


a convenient reference 


O. + 2 Error Return 


a + 2 Return 


a + 2 Return 




a + 3 EOF " 






chart for the programmer. 


a + 4 Normal " 








READ TAPE DECIMAL 
a TSX RTD, 4 


WRITE TAPE DECIMAL 


READ TAPE BINARY 
a TSX RTB, 4 


WRITE TAPE BINARY 
a TSX WTB, 4 


a TSX WTD, 4 


a + 1 A, t, T 


a + l w 


a + l C, t, t 


a + 1 C, t, T 


01 + 2 Error Return 


a + 2 A, t, T 


a + 2 Error Return 


a + 2 Return 


a + 3 EOF " 


a + 3 Return 


a + 3 EOF " 




a + 4 Normal " 




0! + 4 Normal " 








AL PHAN UMERIC AL 




MOVE 
a TSX MOV, 4 


EXTRACT & INSERT 
a TSX XIN, 4 


COMPARISON 


BLANK PACKED BLOCK 
a TSX BPB, 4 


a TSX COM, 4 


a + l W 


a + 1 N 


a+ 1 N 


a + 1 A, t, w 


a + 2 A, t 


a + 2 A, t, R 


a + 2 A, t, R (I) 


a + 2 Return 


a + 3 B, t 


a + 3 B, t, S 


a + 3 B, t, S (II) 




a + 4 Return 


: : 


a + 4 Illegal BCD Return 






a + 3K MZE B, t, S 


a + 5 I > II 






a+3K+l Return 


0! + 6 I = II 
a + 7 K II 








CLEAR & ADD 


INSERT LEADING 


BCD TO BINARY 
a TSX DTB, 4 


BINARY TO BCD 
a TSX BTD, 4 


LOGICAL FIELD 
a TSX CAF, 4 


ZEROS 


a TSX ILZ, 4 


ff + 1 N 


a + 1 N 


a+ 1 N 


a+ 1 N 


a + 2 A, t, R 


a + 2 A, t, R 


a + 2 A, t, R 


a + 2 A, t, R 


a + 3 Error Return 


Of + 3 Return 


0! + 3 Return 


a + 3 Return 


a + 4 Normal " 








CLA, CLS, ADD, SUB, 






TZE, TNZ, TPL, TMI, 


MPY,DIV 


STO, STS 
a TSX "OP", 4 


ALS, ARS, SRD 
a TSX "OP", 4 


TOV, TNO 


a TSX "OP", 4 


a TSX "OP", 4 


a + 1 N 


a+ l N 


a+ l N 


a + 1 MET 


a + 2 A, t, R 
a + 3 Error Return 


0! + 2 A, t, R 
a + 3 Return 


a + 2 Return 


a + 2 NOT MET 


ZERO ACCUMULATOR 


01 + 4 Normal " 




0! TSX ZAC, 4 
0! + 1 Return 




MODIFY FIELD 


MODIFY PSEUDO 
ACCUMULATOR 


CHECK BCD 


CALL IN DPP1 


a TSX MOD, 4 


a TSX MAC, 4 


a TSX CHK, 4 


a TSX DPPL, 4 


a + 1 N 


a+ 1 N 


a+ 1 N 


0! + 1 Error Return 


a + 2 A, t, R 


0! + 2 M, f , m 


a + 2 A, t, R 


a + 2 nj, 0, n 2 


a + 3 M, f, m 


a+ 3 B, t, S 


a + 3 Illegal Return 


a + 3 n 3 , 0, --- 


a + 4 B, t, S 


a + 4 Return 


a + 4 Legal " 




a + 5 Error Return 






a + K n z 


0! + 6 Normal " 






a + K + 1 Normal Return 



SUMMARY OF CALLING SEQUENCES 



80 



mm 

International Business Machines Corporation 
590 Madison Avenue 
New York 22, New York 



PRINTED IN 



